CSV取り込み＆集計

質問

'*****************************************************************
' GLOBAL変数の定義
'*****************************************************************
Dim CurrentDir As String '現在のディレクトリ
Dim ThisBook As String '現在のブック名

Dim WorkSheetName1 As String
Dim WorkSheetName2 As String
Dim ConfigSheetName As String
Dim ListSheetName1 As String
Dim ListSheetName2 As String
Dim ListSheetName3 As String
Dim ListSheetName4 As String
Dim ListSheetName5 As String
Dim ListSheetName6 As String
Dim ListSheetName7 As String

Dim ErrorFlag As Integer 'エラーフラグ　0:正常 1:エラー

Sub 初期設定()

CurrentDir = ActiveWorkbook.Path '現在のディレクトリ
ThisBook = ActiveWorkbook.Name '現在のブック名

WorkSheetName1 = "work1"
WorkSheetName2 = "work2"
ConfigSheetName = "設定"
ListSheetName1 = "＊＊＊＊"
ListSheetName2 = "＊＊＊＊"
ListSheetName3 = "＊＊＊＊"
ListSheetName4 = "＊＊＊＊"
ListSheetName5 = "＊＊＊＊"
ListSheetName6 = "＊＊＊＊"
ListSheetName7 = "＊＊＊＊"

Application.DisplayAlerts = False 'EXCELの警告を無視する

End Sub

Sub CSV取り込み()

Dim LoadBook As String '読み込みブック名
Dim DataMaxCol As Integer '読み込みデータ有効最大カラム数
Dim WorkStartRow As Integer 'workシート開始行
Dim WorkEndRow As Integer 'workシート終了行
Dim ListMaxCol As Integer '一覧シート有効最大カラム数
Dim ListStartRow As Integer '一覧シート開始行

'初期設定コール
Call 初期設定

'workシートをクリア
DataMaxCol = Sheets(ConfigSheetName).Range("F2").Value
WorkStartRow = Sheets(ConfigSheetName).Range("F3").Value
WorkEndRow = Sheets(ConfigSheetName).Range("F4").Value
Sheets(WorkSheetName1).Select
Range(Cells(WorkStartRow, 1), Cells(WorkEndRow, DataMaxCol)).ClearContents

'受注データファイルを選択しオープン
SelectedPath = Application.GetOpenFilename("CSVファイル (*.csv), *.csv")
If SelectedPath <> "False" Then
Workbooks.Open Filename:=(SelectedPath)
Else
'キャンセル時は終了
Exit Sub
End If
LoadBook = ActiveWorkbook.Name '現在のブック名

'受注データの開始行をチェック
I = WorkStartRow

'受注データの最終行をチェック
Do Until ActiveCell.Value = Null
I = I + 1
Cells(I, 1).Select
Loop
WorkEndRow = I - 1

'受注データをコピー
Range(Cells(WorkStartRow, 1), Cells(WorkEndRow, DataMaxCol)).Select
Selection.Copy

'workシートへペースト
Windows(ThisBook).Activate
Sheets(WorkSheetName1).Select
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

'受注データファイルをクローズ
Windows(LoadBook).Close
End Sub
Sub 売上()
'

Call CSV取り込み
Range("K3:K19").Select
Selection.Copy
Sheets("売上").Select
Range("K3:K19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

上記のようなプログラムを書いているのですが何度もはじかれてしまいます。何が原因なのかいまいちよくわからないのですがVBAに詳しい方助けてもらえませんでしょうか？

回答No.3

Kame_LABO

はじかれたときに、WorkSheetName1にマウスを当てると、中身に何が入っているか分かると思います。（VBの機能でVBAには無かったかな？）

もしくは、
Debug.Print WorkSheetName1 としてイミディエイトウインドウに中身を表示させてください。

回答No.2

imogasi

Sub test01()
a = 22
End Sub
Sub test02()
Call test01
MsgBox a
End Sub
test02を実行すると、a　は空白と表示される。
Publicなどの宣言が無い。
この類の誤りは大丈夫ですか。

回答No.1

Kame_LABO

どこではじかれますか？

どこまでは動きますか？

デバッグの力も身につけましょう。

補足

'workシートをクリア
DataMaxCol = Sheets(ConfigSheetName).Range("F2").Value
WorkStartRow = Sheets(ConfigSheetName).Range("F3").Value
WorkEndRow = Sheets(ConfigSheetName).Range("F4").Value
Sheets(WorkSheetName1).Select←ココとではじかれます・・。多分なんですが。
Range(Cells(WorkStartRow, 1), Cells(WorkEndRow, DataMaxCol)).ClearContents