vba打开excel文件的代码

Ⅳ vba怎样打开指定路径的excel文件

打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码：Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

Ⅵ vba打开excel文件（带密码）

打开带密码的文抄件，你需将密码作为参数来打开文件。
Open( _FileName_ , _UpdateLinks_ , _ReadOnly_ , _Format_ , _Password_ , _WriteResPassword_ , _IgnoreReadOnlyRecommended_ , _Origin_ , _Delimiter_ , _Editable_ , _Notify_ , _Converter_ , _AddToMru_ , _Local_ , _CorruptLoad_ )
其中：
_password_ 包含打开受保护工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码，则会提示用户输入密码。
_writerespassword_ 包含写入写保护的工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码，则将提示用户输入密码。
用逗号分隔参数时需要注意参数的位置
也可用password:="XXXX"指明参数名称

Ⅶ 在VBA中，怎样打开或者调用另一个EXCEL文件

ThisWorkbook属性可以返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿，而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。
Private Sub Workbook_Open()
Dim FN As String
FN = ThisWorkbook.Path & "\报表.xls"
If Len(Dir(FN)) = 0 Then
MsgBox "找不到文件：" & vbCrLf & FN, vbExclamation, "错误"
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls"
End If
End Sub
而要打开一个文件夹里所有的文件，就需要用到FileSystemObject 对象，下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例：
Sub ShowAllXlsFile()
Dim GetFile As String, GetPFN As String, GetExt As String
Dim Fso, PF, AF, FN, i, j
GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "请选择文件夹所在的任意一文件")
If CStr(GetFile) <> "False" Then
Sheets.Add
i = 0
j = 0
Set Fso = CreateObject("Scripting.FileSystemObject")
GetPF = Fso.GetParentFolderName(GetFile) & "\"
Set PF = Fso.GetFolder(GetPF)
Set AF = PF.Files
For Each FN In AF
j = j + 1
GetExt = Fso.GetExtensionName(FN)
If GetExt = "xls" Then
i = i + 1
Cells(i, 1) = FN.Name
End If
Next
MsgBox "总计所有类型文件" & j & "个！" & vbCrLf & "总计Excel文件" & i & "个！"
Else
MsgBox "没有选择文件夹！"
End If
End Sub

Ⅷ vba怎么读取多个excel文件代码

Sub 按钮2_Click()
Application.ScreenUpdating = False
Set cnn = CreateObject("adodb.connection")
[a2:l65536].ClearContents
h = 2
f = Dir(ThisWorkbook.Path & "\*.xls?")
Do While f > ""
If f <> ThisWorkbook.Name Then
cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.Path & "" & f
Sql = "select * from [sheet1$A1:C1000]"
Cells(h, 1).CopyFromRecordset cnn.Execute(Sql)
h = Cells(Rows.Count, 1).End(xlUp).Row + 1
cnn.Close
End If
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

Ⅸ excel vba打开excel文件

不知道这样符不符合你的要求(一个打开，一个恢复显示回)：

Sub 后台打开答()
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\excel.xls"
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub

Sub 取消隐藏()
Windows("excel.xls").Visible = True
End Sub

Ⅹ 求excel vba 宏代码,打开xlsm格式的文件自动运行的宏

把下面的代码复制到工作簿的 ThisWorkbook 模块里面就可以了

OptionExplicit
PrivateSubWorkbook_Open()
DimlAsLong
l=Sheets("p").Range("a60000").End(xlUp).Row
'这里假定日期保存在A列的最后一个单元格，你可以自己修改Range("a60000")为Range("c60000")等等。
IfSheets("p").Range("a"&l).Value=DateValue(Now)Then
'这里也假定日期保存在A列的最后一个单元格，你可以自己修改Range("a"&l)为Range("c"&l)等等，和上面的要一致。
p2
ThisWorkbook.Save
EndIf
EndSub

Subp2()
MsgBox"yes"
EndSub