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