|
ハチさん
ご回答いただきありがとうございます。
早速トライしてみましたが、どうもうまくいきません。。
教えて頂いた様に、以下のようにプログラムを変えましたが
どこに問題があるのでしょうか。
また、
Range("A" & 行).Value = myFile
をどこにもっていけば良いのか分かりません。
今からVBAを勉強していこうと思っていますが、時間がかかりそうです。
今回はお助け下さい。
Sub Main()
Dim i As Integer
For i = 0 To 50
Call データ("TEXT;C:\" & i & ".csv")
Next
End Sub
Sub データ(myFile As String)
Dim 行 As Long
If WorksheetFunction.CountA(Range("A:A")) > 0 Then
行 = Range("A1").CurrentRegion.Rows.Count + 1
Else
行 = 1
End If
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\" & i & ".CSV", Destination:=Range("A1" _
))
以下省略
|
|