Excel VBA質問箱 IV

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

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


67275 / 76734 ←次へ | 前へ→

【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 質問
【13969】Re:CSVファイルの貼り付け Asaki 04/5/18(火) 10:19 回答
【14008】Re:CSVファイルの貼り付け みかん 04/5/18(火) 15:20 回答
【14017】Re:CSVファイルの貼り付け BOTTA 04/5/18(火) 16:23 回答
【14026】Re:CSVファイルの貼り付け 国木田ゴッホ 04/5/18(火) 17:29 お礼

67275 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free