![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは、
データタブからデータの取得をクリックし
レガシーかな?
マクロの記録でどのように記録されるか、試して 示される方が良いかも。
CSVデータの取得は、クリアーなシートに抽出するのでしょうか?
それとも、データを追加する形でしょうか?
CSVデータは、文字コードをはじめ、色々な形式があると思うので
一概にはコードを示す事が出来ません
いずれにしても、データ抽出時に加工などをすれば良いのではないでしょうか、
一番左の文字が0なら 'を加えるとか、、、
CSV抽出時、必ずクリアーなシートに抽出するなら
QueryTableを私的には、よく使います。
この場合、文字として抽出したいカラムを
TextFileColumnDataTypes で設定する事で比較的簡単に出来るかも
Private Sub in_csvQuery(pathFile_name As String, Sheet_name As String)
Dim Ws As Worksheet
Set Ws = Worksheets(Sheet_name) ' CSV のデータを取り込むシート
Dim qt As QueryTable
On Error Resume Next
Set qt = Ws.QueryTables.Add(Connection:="TEXT;" & pathFile_name, Destination:=Ws.Range("A1"))
With qt
.TextFilePlatform = 932 ' Shift_JIS
.TextFileParseType = xlDelimited ' 区切り文字の形式
.TextFileCommaDelimiter = True ' カンマ区切り
.RefreshStyle = xlOverwriteCells ' セルに上書き
.TextFileColumnDataTypes = Array(1, 1, 2, 1, 1, 2, 1, 1, 1, 2)
.Refresh
.Delete
End With
End Sub
1、2、4、5、7、8、9列目 自動
3、6、10列目 は、文字列として指定抽出(頭の0は消えません)
条件に合わないケースが多いかも知れません。
pathFile_nameは ファイルパスとファイル名(拡張子を含む)
Sheet_name は 出力先のシート名
呼び出し側 例
Call in_csvQuery("C:\Users\UserName\Desktop\新しいフォルダー\TEST.csv", "Sheet1") みたいに呼びます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
エクセルの数式バーのフォント...
-
エクセルの関数について教えて...
-
エクセルでセルに標準で入力さ...
-
Microsoft1Officeの互換ソフト...
-
シフト表をエクセルで作るとき...
-
ユーザー定義関数をアドイン登...
-
Excel VBAで全ての矢印を赤色に...
-
VBA Private Sub Worksheet_Cha...
-
2列に入っているデータを1列...
-
Excelに詳しい方! B列が「日...
-
excel2013 MonthDays 関数が使...
-
エクセルのクイックアクセスツ...
-
Excelの数式について教えてくだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSの集計クエリで3件ある...
-
エクセル関数 文字(ハイフン...
-
抽出したデータを修正して元の...
-
ACCESSのクエリで同じSQL文だが...
-
MS-DOSコマンドプロンプトを途...
-
<SQL>条件付きで最小値レコード...
-
アクセス クエリ-で空白以外の...
-
ACCESSで質問があります!
-
空白文字とスペースの検索
-
ADO接続からのACCESSデータシー...
-
VBA CSVファイルを文字列に
-
LIKE *ABC* が ACCESSでは使え...
-
【マクロ】該当データを抽出したい
-
SQLServerからエクセルにデータ...
-
エクセルデータの末尾の改行を...
-
サイトをオフラインでも閲覧し...
-
SQLサーバのデータをエクセルに...
-
PS2のBGM抽出
-
Excel VBA:セルを新旧1つずつ...
-
エクスプローラーで「2つの条件...
おすすめ情報