使用VBA操作Excel
我想在excel中添加一個按鈕，點擊按鈕出現選擇檔案對話框，選擇檔案之后，能夠將選中Excel檔案其中固定的幾個列顯示到我的Excel檔案中。請高手指點一下吧.
uj5u.com熱心網友回復：
Option Explicit
Sub Main()
'Declare a variable as a FileDialog object.
Dim fd As FileDialog
'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'Declare a variable to contain the path
'of each selected item. Even though the path is a String,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant
'Use a With...End With block to reference the FileDialog object.
With fd
'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the action button.
If .Show = -1 Then
'Step through each string in the FileDialogSelectedItems collection.
For Each vrtSelectedItem In .SelectedItems
'vrtSelectedItem is a String that contains the path of each selected item.
'You can use any file I/O functions that you want to work with this path.
'This example simply displays the path in a message box.
MsgBox "The path is: " & vrtSelectedItem
Next vrtSelectedItem
'The user pressed Cancel.
Else
End If
End With
'Set the object variable to Nothing.
Set fd = Nothing
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133256.html
標籤：VBA
上一篇：按要求提取csv檔案內容