|
国木田ゴッホさん、こんにちは。
FileSystemObjectとDataObjectを使います。
Sub aaa()
'<注意>
'Microsoft Forms 2.0 Object Libraryの参照設定が必要です。
'VBE画面で「ツール」→「参照設定」でCheckを入れる。
'見つからない場合は「参照」ボタンを押して、Systemフォルダ内の「FM20.DLL」
'を選択して「開く」を押します。
Dim FSO As Object, objData As Object
Dim strData As String
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile("D:\aaa\data.csv", 1)
' ↑任意のパス&ファイルに変えてね
strData = .ReadAll
.Close
End With
strData = Replace(strData, ",", vbTab) 'カンマをTabに変換
Set objData = New DataObject
With objData
.SetText strData
.PutInClipboard
End With
ActiveSheet.Range("A1").PasteSpecial
Set objData = Nothing: Set FSO = Nothing
End Sub
|
|