3

次のようなスクリプトを書きます。

Sub Button_Click()
    objFile = Application.GetOpenFilename(fileFilter:="All Files (* . *) , * . * ") ' choose load path
    .....

    Call main_function
End Sub

これは、ユーザーがファイルを参照できるようにする Excel マクロ ボタンのスクリプトです。実際には、これを使用して Excel ファイルを読み込み、その Excel ファイルのデータをmain_function(現在の Excel) で使用したいと考えています。

これどうやってするの？

4

2 に答える 2

4

ユーザーをExcelのみに制限したいので、フィルターを変更しました

Dim pathString As String
Dim resultWorkbook As Workbook
Dim found As Boolean
pathString = Application.GetOpenFilename(fileFilter:="All Files (* . xl*) , *.xl* ")

' check if it's already opened
For Each wb In Workbooks
    If InStr(pathString, wb.Name) > 0 Then
        Set resultWorkbook = wb
        found = True
        Exit For
    End If
Next wb

If Not found Then
    Set resultWorkbook = Workbooks.Open(pathString)
End If

' then you can use resultWorkbook as a reference to the Excel Workbook Object
于 2012-09-24T05:19:24.923 に答える