CSVとコピーを開く

Question

Friends、 CSVファイル（毎日別のプログラムから生成）を毎日開き、CSVシートのデータを現在のワークブックの特定のシートにコピーしようとしています。私はしばらくの間、このコードを作業して、それは本当に近くにあると思うが、私はコピー/貼り付け行に実行時エラー438を得続けている。どんな助け？

ありがとうございました！ここで

は私のコードです：

Sub GetCSV() 

Dim thatWB As Workbook, thisWB As Workbook 
Dim thisWS As Worksheet, thatWS As Worksheet 
Dim zOpenFileName As String 
Dim inputData As String 

'get name of sheet to open 
inputData = InputBox("Enter name of file") 

'open CSV file 
zOpenFileName = Application.GetOpenFilename 

'error handling 
If zOpenFileName = "" Then Exit Sub 

Application.ScreenUpdating = False 

Set thisWB = ThisWorkbook 'destination workbook 
Set thisWS = Sheets("f_dump") 'destination worksheet 

Set thatWB = Workbooks.Open(zOpenFileName) 'source CSV 
Set thatWS = thatWB.Sheets(inputData) 'source worksheet 

Application.CutCopyMode = False 

thatWB.thatWS.Range("A1:G150").Copy Destination:=thisWB.thisWS.Range("A1") 

thatWB.Close 

End Sub 

Answer 1

はこれを見てみてください。このWBとThatWBをコピーから削除し、コードの一部を貼り付けました。なぜなら、それが最初の問題のソースだったからです（そして、ワークブックの仕様をシート宣言に移しました）。

次に、次の問題は「貼り付け」でした。イムあなたがここで言及parentagingが正しいことながら、なぜ、しかし範囲に呼び出したとき、あなたはPasteSpecialを使用する必要があります（ExcelのVBAではなく、プログラミング/スクリプティングのビット魔法である）

Sub GetCSV() 

Dim thatWB As Workbook, thisWB As Workbook 
Dim thisWS As Worksheet, thatWS As Worksheet 
Dim zOpenFileName As String 
Dim inputData As String 

'get name of sheet to open 
inputData = InputBox("Enter name of file") 

'open CSV file 
zOpenFileName = Application.GetOpenFilename 

'error handling 
If zOpenFileName = "" Then Exit Sub 

Application.ScreenUpdating = False 

Set thisWB = ThisWorkbook 'destination workbook 
Set thisWS = ThisWorkbook.Sheets("Sheet1") 'destination worksheet 

Set thatWB = Workbooks.Open(zOpenFileName) 'source CSV 
Set thatWS = thatWB.Sheets(inputData) 'source worksheet 

Application.CutCopyMode = False 

thatWS.Range("A1:G150").Copy 
thisWS.Range("A1:G150").PasteSpecial xlPasteAll 
thatWB.Close 

End Sub