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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクスプローラーで「2つの条件...
-
<SQL>条件付きで最小値レコード...
-
空白文字とスペースの検索
-
アクセス クエリ-で空白以外の...
-
エクセル関数 文字(ハイフン...
-
ACCESSの集計クエリで3件ある...
-
Oracleでの文字列連結サイズの上限
-
GROUP BYを行った後に結合した...
-
select句副問い合わせ 値の個...
-
OracleのSQL*PLUSで、デー...
-
GROUP BYを使ったSELECT文の総...
-
ファイル書込みで一行もしくは...
-
Accessで別テーブルの値をフォ...
-
キーが同じを複数行を1行にま...
-
サブフォームに新規レコードを...
-
Excelでセルの書式設定を使用し...
-
SELECTの結果で同一行を複数回...
-
DataGridViewにてセル以外をク...
-
サブレンジ分割されたNDB(富士...
-
JSPのNULLレコード表示について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
抽出したデータを修正して元の...
-
ACCESSの集計クエリで3件ある...
-
ACCESSのクエリで同じSQL文だが...
-
エクセル関数 文字(ハイフン...
-
アクセス クエリ-で空白以外の...
-
MS-DOSコマンドプロンプトを途...
-
<SQL>条件付きで最小値レコード...
-
空白文字とスペースの検索
-
SQLを駆使したデータ抽出ってど...
-
商品テーブルからカテゴリ別の...
-
LIKE *ABC* が ACCESSでは使え...
-
SQLServerからエクセルにデータ...
-
VBA CSVファイルを文字列に
-
Excel VBA:セルを新旧1つずつ...
-
エクスプローラーで「2つの条件...
-
エクセルデータの末尾の改行を...
-
さくらレンタルサーバのMysqlの...
-
アクセスのクエリの抽出条件に...
-
Excelの横軸の際の抽出について
-
SQLの数値の編集について
おすすめ情報