VBA 怎么打開excel

這里舉個打開文件器選擇文件，然后在讀取改路徑，打開excel

?

Private Sub CommandButton3_Click()
? ? '選擇單一文件
? ? With Application.FileDialog(msoFileDialogFilePicker)
? ? ? ? .AllowMultiSelect = False ? '單選擇
? ? ? ? .Filters.Clear ? '清除文件過濾器
? ? ? ? .Filters.Add "Excel Files", "*.xlsx" '設(shè)置兩個文件過濾器
? ? ? ? If .Show = -1 Then ? ?'FileDialog 對象的 Show 方法顯示對話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）
? ? ? ? ? ? ThisWorkbook.Sheets(1).Cells(6, 4).Value = .SelectedItems(1)
? ? ? ? End If
? ? End With
End Sub

Dim wk As Workbook ? ? ? ? ? '目標(biāo)文件
Dim xl As Object
Dim exPath As String
exPath = ThisWorkbook.Sheets(1).Cells(6, 4).Value
Set wk = Workbooks.Open(exPath)
Set ws = wk.Worksheets(1) ? ?

總結(jié)

以上是生活随笔為你收集整理的VBA---打开excel的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。