Excel VBA質問箱 IV

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

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


39691 / 76732 ←次へ | 前へ→

【42150】Re:CSV形式の取り込み
発言  Ned  - 06/9/2(土) 21:29 -

引用なし
パスワード
   ▼ととろ さん:
こんにちは。
>もしこれ以外に取り込める記述があればそれでもかまいません。
...について。私は概ねこんな感じのを良く使います。

Sub sample()
  Dim fName
  fName = Application.GetOpenFilename("CSV ファイル (*.csv),*.csv")
  If VarType(fName) = vbBoolean Then Exit Sub
  With Sheets.Add
    With .QueryTables.Add( _
        Connection:="TEXT;" & fName, _
          Destination:=.Range("A1"))
      .RefreshStyle = xlOverwriteCells
      .AdjustColumnWidth = False
      .TextFileCommaDelimiter = True
      .Refresh False
      .Parent.Names(.Name).Delete
      .Delete
    End With
  End With
End Sub

[外部データの取り込み]-[テキストファイルのインポート]を
マクロ記録されてみてはどうでしょうか。

0 hits

【42149】CSV形式の取り込み ととろ 06/9/2(土) 20:53 質問
【42150】Re:CSV形式の取り込み Ned 06/9/2(土) 21:29 発言
【42164】Nedさんへ、シートを追加せずに、、、 ととろ 06/9/3(日) 11:09 質問
【42176】Re:Nedさんへ、シートを追加せずに、、、 Ned 06/9/3(日) 20:38 発言
【42292】Nedさんへ、シートを追加せずに、、、 ととろ 06/9/5(火) 18:07 お礼
【42151】Re:CSV形式の取り込み ichinose 06/9/2(土) 21:51 発言
【42152】Re:CSV形式の取り込み Ned 06/9/2(土) 22:06 発言
【42165】Re:CSV形式の取り込み ととろ 06/9/3(日) 11:37 お礼
【42154】Re:CSV形式の取り込み Hirofumi 06/9/2(土) 22:39 回答
【42196】CSV形式の取り込み ととろ 06/9/4(月) 0:58 お礼

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