0

ファイルをリストする独自のメニューを作成しました。ファイル名をクリックしてworkboo.openを呼び出せるようにしたい。変更方法:

Set cbButton = vParentMenu.Controls.Add(Type:=msoControlButton)
cbButton.Caption = strSubMenuCaption
If strButtonOnAction <> "" Then cbButton.OnAction =

これを達成するには？ファイルパスへの参照を使用してworkbook.openを呼び出す何らかのアクション文字列を追加する必要があることを理解しています(私は持っています)。

4

2 に答える 2

1

次のようなものが必要です。

cbButton.OnAction = "'<FunctionName> <Parametervalue>'"

関数に文字列パラメーターを使用している場合は、値を二重引用符で囲みます。

cbButton.OnAction = "'<FunctionName> """<Parametervalue>"""'"

例えば：

cbButton.OnAction = "'OpenWB """c:\test.xls"""'"
于 2012-11-05T17:22:25.783 に答える
0

このようなものを試すことができます..

Set cbButton = vParentMenu.Controls.Add(Type:=msoControlButton)
cbButton.Caption = strSubMenuCaption
If strButtonOnAction <> "" Then 
    With cbButton
        .OnAction = "'OpenWorkbook " & strButtonOnAction & "'"
    End With
End If

Sub OpenWorkbook(strFilePath)
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open(strFilePath)
End Sub

私はこれを自分でテストしていないことに注意してください...

于 2012-11-05T17:16:01.783 に答える