投稿日	： 2003/10/13(Mon) 02:19
投稿者	： 出雲
Ｅメール	：
ＵＲＬ	：
タイトル	： 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

★ - EXCELへ名前を付けて保存 - 出雲 10/13-02:19No.6221
• Re: EXCELへ名前を付けて保存 - 花ちゃん 10/13-10:02 No.6226
  • Re^2: EXCELへ名前を付けて保存（解決しま.. - 出雲 10/13-12:52 No.6227