投稿日 | : 2003/10/13(Mon) 02:19 |
投稿者 | : 出雲 |
Eメール | : |
URL | : |
タイトル | : EXCELへ名前を付けて保存 |
いつも参考にさせて頂いております。(VB6 SP5 EXCEL2000)
保存がどうしても出来ずお知恵をお貸しください。
やりたいことは
・マスターのEXCELを読み込む
・指定場所のデータを書き込む
・書き込み終了した時点で、名前を変えて保存
としたいのですが
xlsApp.SaveAs "No A0001.xls" の部分でエラーになってしまいます。
何が原因なのかお教え頂けないでしょうか?
'----------------------------------------------------
Dim lngReturnCode As Long
Dim strFileName As String
'
strFileName = "A.xls"
lngReturnCode = ShellExecute(Me.hwnd, "open", strFileName, vbNullString, App.Path, SW_SHOWNORMAL)
'
Dim xlsApp As Object
Dim xlsBook As Object
Dim xlsSheet As Object
'
Set xlsApp = GetObject(, "Excel.Application")
Set xlsBook = xlsApp.ActiveWorkBook
Set xlsSheet = xlsBook.Sheets("Sheet1")
xlsSheet.Cells(2, 9) = "No A0001
xlsApp.SaveAs "No A0001.xls" <= ここで実行時エラー438になります。
Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing