Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67279 / 76738

←次へ　｜　前へ→


	【14017】Re:CSVファイルの貼り付け

BOTTA - 04/5/18(火) 16:23 -


	引用なし

	パスワード

国木田ゴッホさん、こんにちは。

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

0 hits

▼

【13967】CSVファイルの貼り付け 国木田ゴッホ 04/5/18(火) 10:14