vba 打开固定地址下，指定名称的工作簿

Posted 2023-05-09

现有工具薄sheet1内，单元格（A1）内有一串数字 20180505。
文件夹地址 【 E:\新建文件夹 】 与 【 E:\keil 】 内均有文件 20180505.xlsm。
现在要如何根据既有数字 20180505 ，分别依次打开两个路径下的文件 20180505.xlsm

如果只是打开文件，可以试试以下VBA代码
Sub 打开文件()
Dim wjm, lj1, lj2
wjm = Sheets("Sheet1").Range("A1") & ".XLSM"
lj1 = "E:\\新建文件夹\\" & wjm
lj2 = "E:\\keil\\" & wjm
If Dir(lj1) <> "" Then '判断文件是否存在
    Workbooks.Open Filename:=lj1
Else
    MsgBox "文件1不存在。"
    Exit Sub
End If
If Dir(lj2) <> "" Then '判断文件是否存在
    Workbooks.Open Filename:=lj2
Else
    MsgBox "文件2不存在。"
    Exit Sub
End If
End Sub

追问

不好意思再请教一下啊，dim 后的wjm lj1 lj2为什么不用定义数据类型，我在实验时到 wjm = 。。。这一句时，会报出阵列索引超出范围错误。

实验出来了😂😂小白如我把一个点～忘记了，非常感谢你哦😘

参考技术A 你要用模拟器多开，改转换器，这个很简单的，
先准备一个模拟器，
然后备一个转换器修改工具：比如，兔子转换器转换器
比如我想要在一台电脑上，改10个不同的转换器，
直接在模拟器上，使用兔子，就能修改成功，
快去试下吧。

VBA基础概念

 

一：VBA对象

‘VBA对象

  ‘VBA中的对象其实就是我们操作的具有方法、属性的excel中支持的对象

‘Excel中的几个常用对象表示方法

 ‘1、工作簿
 
      ‘ Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N个工作簿
      ‘ Workbooks ("工作簿名称")
      ‘ ActiveWorkbook 正在操作的工作簿
      ‘ ThisWorkBook ‘代码所在的工作簿
      
  ‘2、工作表
    ‘ ‘Sheets("工作表名称")
      ‘Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表....
      ‘Sheets(n) 表示按排列顺序，第n个工作表
      ‘ActiveSheet 表示活动工作表，光标所在工作表
      ‘worksheet 也表示工作表，但不包括图表工作表、宏工作表等。

  ‘3、单元格
       ‘cells 所有单元格
       ‘Range ("单元格地址")
       ‘Cells(行数,列数)
       ‘Activecell 正在选中或编辑的单元格
       ‘Selection 正被选中或选取的单元格或单元格区域

　　

二：VBA对象和属性

‘一、VBA属性

    ‘VBA属性就是VBA对象所具有的特点
    ‘表示某个对象的属性的方法是
        
        ‘对象.属性=属性值
        
    Sub ttt()
      Range("a1").Value = 100
    End Sub

    Sub ttt1()
      Sheets(1).Name = "工作表改名了"
    End Sub

    Sub ttt2()
    
       Sheets("Sheet2").Range("a1").Value = "abcd"
    
    End Sub
    
    
    Sub ttt3()
     
      Range("A2").Interior.ColorIndex = 3
      
    End Sub


‘二 、VBA方法

   ‘VBA方法是作用于VBA对象上的动作
     
     ‘表示用某个方法作用于VBA的对象上，可以用下面的格式：

        
  Sub ttt4()
  
      牛排.做 熟的程度:=七成熟
     
      Range("A1").Copy Range("A2")
  End Sub
   
  Sub ttt5()
  
    Sheet1.Move before:=Sheets("Sheet3")
    
  End Sub

　　

三：VBA语句

‘VBA中的代码的基本结构与组成部分

‘VBA语句
‘一、宏程序语句
  ‘运行后可以完成一个功能

Sub test()  ‘开始语句
  
  Range("a1") = 100

End Sub   ‘结束语句


‘二、函数程序语句
   
   ‘运行后可以返回一个值
   
Function shcount()

  shcount = Sheets.Count
  
End Function


‘三、在程序中应用的语句

  Sub test2()
    
    Call test
    
  End Sub

 Sub test3()
 
   For x = 1 To 100   ‘for next 循环语句
      Cells(x, 1) = x
   Next x
 
 End Sub