別ブックをつくってコピーしてCSV出力、保存せず閉じるという技。 Option Explicit Sub sample() '出力するCSVファイル Const CSV_FILE As String = "C:\Users\user\Desktop\sample.csv" Dim targetRange As Range Dim wb As Workbook Dim fso As Object 'CS…

Dim ws As Worksheet Set ws = ActiveSheet ' CSV のデータを取り込むシート Dim qt As QueryTable Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\hogehoge.csv", Destination:=ws.Range("A2")) ' CSV を開く With qt .AdjustColumnWidth = False 'セル…