|
たびたびすいません。よろしくお願いします。
CSVファイルからExcelシートにデータをコピーするプログラムを作成しているのですが、
途中でエラーがでます。原因が良くわからないので、ご助力いただけたらと思います。
・環境:Windows2000,Excel2000
・ソースコード(すいません、作成中なので無限ループになっています。)
'CSVデータシートをオブジェクト変数に設定する
Set obCsvSheet = wkbWorkBook.Worksheets(strCsvSheetName)
'支店名検索開始位置を設定する
strSittenSelNo = "A1"
'CSVデータシートからセンター計を検索する
Set rngCenterSelNo = obCsvSheet.Range("A:A").Find(What:="センター計", lookat:=xlWhole, _
MatchByte:=True)
'支店名検索ループ
Do
'CSVデータシートから支店名を検索する
Set rngSittenSelNo = obCsvSheet.Range(Range(strSittenSelNo), Range(rngCenterSelNo.Address)).Find(What:="支店", lookat:=xlPart, _
MatchByte:=True)
'支店名の入ったセル位置を退避する
strSittenSelNo = rngSittenSelNo.Address
'ワークブックにワークシートを追加する
wkbWorkBook.Worksheets.Add Before:=Sheets(1)
'追加したワークシートに名前を付ける
wkbWorkBook.Worksheets(1).Name = rngSittenSelNo.Value
'営業所別入電件数シートからレイアウトをコピー
Layout230.Range("A1:AH4").Copy _
Destination:=wkbWorkBook.Worksheets(rngSittenSelNo.Value).Range("A1:AH4")
'支店名を設定する
wkbWorkBook.Worksheets(rngSittenSelNo.Value).Range("A1").Value = rngSittenSelNo.Value
'日付のセル位置を取得する
strDateSelNo = obCsvSheet.Range(strSittenSelNo).Offset(1, 2).Address
'CSVデータシートから日付、曜日をコピーする
obCsvSheet.Range(strDateSelNo).Resize(2, 31).Copy
wkbWorkBook.Worksheets(rngSittenSelNo.Value).Range(strDateSelNo).Offset(-1, 0).PasteSpecial Paste:=xlPasteValues
'営業所検索開始位置を設定する
strEigyouSelNo = strSittenSelNo
'ワークブック内営業所データコピー開始位置を設定する
strWkbStartSelNo = "C5"
'営業所検索ループ
Do
ActiveCell.Copy: Application.CutCopyMode = False
'CSVデータシートから合計を検索する
Set rngGokeiSelNo = obCsvSheet.Range(Range(strEigyouSelNo), Range(rngCenterSelNo.Address)).Find(What:="合計", lookat:=xlWhole, _
MatchByte:=True)★
'CSVデータシートから営業所を検索する
Set rngEigyouSelNo = obCsvSheet.Range(Range(strSittenSelNo), Range(rngGokeiSelNo.Address)).Find(What:="営業所", lookat:=xlPart, _
MatchByte:=True)
'営業所の入ったセル位置を退避する
strEigyouSelNo = rngEigyouSelNo.Address
'営業所データコピー開始位置を設定する
strEigyouStartSelNo = Range(strEigyouSelNo).Offset(-1, 0)
'営業所別入電件数シートからレイアウトをコピー
Layout230.Range("A5:AH8").Copy _
Destination:=wkbWorkBook.Worksheets(rngSittenSelNo.Value).Range(strEigyouStartSelNo)
'CSVデータシートから営業所のデータをコピーする
obCsvSheet.Range(strEigyouStartSelNo).Resize(3, 31).Copy
wkbWorkBook.Worksheets(rngSittenSelNo.Value).Range(strWkbStartSelNo).PasteSpecial Paste:=xlPasteValues
'ワークブック内営業所データコピー開始位置を設定する
strWkbStartSelNo = Range(strWkbStartSelNo).Offset(3, 0)
i = 0
Loop
Loop
部分的なのですが、コードは上記のとうりです。実行すると★の部分で、エラーが
発生します。内容は、
エラーコード:1004
エラー内容:アプリケーション定義またはオブジェクト定義のエラーです。
|
|