エクセルのマクロ
エクセルに
1、コマンドボタンを押す
2、貼り付けたいテキストファイルを選ぶ
→B3のセルから貼り付ける
というマクロを組みました
以下のマクロがそうなんですが、
このマクロだと1つのテキストファイルしか貼り付けれません
2回目以降も貼り付けを同じボタンで繰り返し
その前に貼り付けたデータのB列最終セルの一つ下のセルから
同じようにテキスト貼り付けを行えるようにはすることは可能でしょうか？
Private Sub CommandButton1_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
Dim txtpass As Variant
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
txtpass = "TEXT;" & vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With
With ActiveSheet.QueryTables.Add(Connection:= _
txtpass, Destination:=Range("$B$3"))
.Name = "4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
