|
フォームにテキストボックスは配置し、コマンドボタンでエクセルを開くこうと
しています。テキストボックス名:テキスト283、コマンドボタン名:コマンド285
Gドライブにある見積書フォルダの○○○.xlsを開くものです。
Private Sub コマンド285_Click()
On Error GoTo Err_コマンド285_Click
Dim stAppName As String
stAppName="Excel.exe\\servoer0\G:見積書\"& Me.テキスト283&"\"& Meテキスト283 & "*.xls"
Exit_コマンド285_Click
Exit Sub
Err_コマンド285_Click
MsgBoxErr.Description
Resume Exit_コマンド285_Click
End Sub
-------------------------------------------------------------------------
上記の中で「Exit_コマンド285_Click 」がコンパイルエラーが出て
”SubまたはFunctionが定義されていませんと”表示されます。
解決方法をご教示頂きたく、宜しくお願い致します。
|
|