エラーを回避するには？ (ID:123001)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんばんは

VB6でこのようなエクセルファイルを出力する
コードを記述している途中なのですが、

この2行を入れると
     Set myRng = Shc.Range("G2:G65536")
            myRng.Replace "0", "", xlWhole
        
実行したあと、エクセルファイルのプレビューなどのボタンをクリックすると

EXCEL．EXE -アプリケーションエラー

"0x0048003f"の命令が"0x3d3eOdfe"のメモリを参照しました。メモリが"written"に
なることはできませんでした。

プログラムを終了するには[OK]をクリックしてください。
プログラムをデバッグするには[キャンセル]をクリックしてください

のメッセージが出ます。
何故なのでしょうか？
助けてください。

環境
VB6
XP ProSp2

Dim myExcel As Object
  Dim myBook  As Workbook
  Dim Shc     As Worksheet
  Dim myFile  As String
  Dim myRng   As Range
     
     Set myExcel = CreateObject("Excel.Application")
     
     myExcel.Visible = True
     myExcel.Workbooks.Add
       
     myFile = "C:\テストBook.xls"
     
     Set myBook = GetObject(myFile, "Excel.Sheet")
     
     myBook.Worksheets("cccc").Copy Before:=Worksheets(1)
     myBook.Worksheets("bbbb").Copy Before:=Worksheets(1)
     myBook.Worksheets("aaaa").Copy Before:=Worksheets(1)
     
     Set Shc = myExcel.Worksheets("cccc")
        
     Set myRng = Shc.Range("G2:G65536")
            myRng.Replace "0", "", xlWhole
       
       
      Set myRng = Nothing
      Set myExcel = Nothing
      Set myBook = Nothing
      Set Shc = Nothing

←解決時は質問者本人がここをチェックしてください。

戻る