| |
くが さん、こんにちわ。
>マクロを記述しているファイルAに「マクロ」という名前でシートがあり、
>全く別のCSVファイルを「CSVファイル」というシート名で「マクロ」の右に
>シートを追加する形で開くにはどうしたらいいでしょうか。
>
>Workbooks.Openで開いてMoveで移動させていますが、
>直接いける方法はありませんか。
たとえば、シートを追加してそこにデータ→外部データで読み込む方法とか。
Sub Test()
Dim ws As Worksheet, Ifile As String
'ファイル名
Ifile = "test.csv"
'新しいシート追加
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "CSVファイル" '既存の場合はエラーになるので注意
With ws.QueryTables.Add(Connection:="TEXT;" & Ifile, Destination:=Range("A1"))
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileCommaDelimiter = True
'データ反映
.Refresh
'読み込んだら定義は不要
.Delete
End With
End Sub
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/10/21(日) 13:51 -
