ExcelのシートにCSVを読み込むVBAを作りました。
しかし、
P列~U列は、4桁の数字として取り込みたいのですが、
0004 → 4
0700 → 700 の様に、先頭の0が削除されてしまいます。
取り込み方はいくつかあると思いますが、
取り込んだ後、P列~U列を"0000"の様に4桁指定の書式に変える場合どうしたら良いでしょうか?
表示形式だけ0000の形式にするのではなく、セル内に文字列として「0001」と入るようにしたいです。
よろしくお願いいたします。
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
No2です。
CSVファイルをシートへ直接読み込む方法です。
ファイル名はD:\goo\data\Book1.csvになっているので、あなたの環境に合わせてください。
A列~O列は標準形式
P列~U列は文字列形式で読み込みます。
Sub CSV読み込み()
Dim finfo As Variant
Dim ws As Worksheet
Set ws = ActiveSheet ' CSV のデータを取り込むシート
Dim fc As Variant
Dim i As Long
fc = Array()
'A~O列は標準形式
For i = 0 To 14
ReDim Preserve fc(i)
fc(i) = xlGeneralFormat
Next
'P~U列は文字列形式
For i = 15 To 20
ReDim Preserve fc(i)
fc(i) = xlTextFormat
Next
Dim qt As QueryTable
Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\goo\data\Book1.csv", Destination:=ws.Range("A1")) ' CSV を開く
With qt
.TextFileColumnDataTypes = fc
.TextFilePlatform = 932 ' 文字コードを指定
.TextFileParseType = xlDelimited ' 区切り文字の形式
.TextFileCommaDelimiter = True ' カンマ区切り
.RefreshStyle = xlOverwriteCells ' セルに上書き
.Refresh ' データを表示
.Delete ' CSV との接続を解除
End With
MsgBox ("OK")
End Sub
ありがとうございます。
CSVをExcel上に展開するのではなくて、形式を指定しながら取り込む方式ですね。
今までの悩みが何だっていうくらい期待通りの結果が得られました。
分かりやすいソースなのでカスタマイズもし易かったです。
CSVを開くのは決められたファイルではなく都度選択できるようにしました。
No.4
- 回答日時:
マクロ音痴の私自身は下記の手順で対処しています。
[データ]⇒[データの取得と変換 <テキストまたはCSVから>]⇒表示された[データの取り込み]メニューから目的のCSVファイルを選択⇒[インポート]をパシーッ
を実行した結果を添付図の下端に示しました。
後はその画面の Column2、Column4 のデータの左端に 0 を付加する作業をすれば好い。
さて、どうやるかはご自分で勉強なさってください。
【独白】Excelワークシート⇒CSVファイルへのいわゆる[エクスポート]機能を装備したのはMS社の“小さな親切”ですが、逆のCSVファイルからのインポート機能の充実を長年オザナリのまま改善しないのは、MS社の“大きな怠慢”だと思います、ハイ。
No.3
- 回答日時:
項目の型を指定
Dim fi As Variant
fi = Array(Array(1, xlTextFormat), _
Array(2, xlGeneralFormat), _
Array(3, xlYMDFormat))
Call Workbooks.OpenText("D:\hoge.csv", Origin:=xxx, FieldInfo:=fi) ' 文字列、数値、日付の順に読み込む
ありがとうございます。
重要なヒントと認識してます。
ただ、既存のソースにうまく組み込む程のスキルがないため、
後の回答のソースを使わせて頂きました。
No.2
- 回答日時:
CSVのデータが4桁の数字なら、
取り込む前にP~Uの書式を文字列に変えてはいかがでしょうか。
Columns("P:U").NumberFormatLocal = "@"
を実行後、P~Uのセルにデータを設定すればよろしいかと。
アドバイス感謝します。
ただ、お恥ずかしいことにcsv取り込みが良く分からないため、
具体的な処理としては、csvをopenしてから全範囲を
コピー→貼り付けしてるので、
openした段階で 0 落ちを起こしてると思うのです。
その処理が分からないため、貼った後の事後処理をしてる次第です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
【お題】 ・存在しそうで存在しないモノマネ芸人の名前を教えてください
-
大人になっても苦手な食べ物、ありますか?
大人になっても、我慢してもどうしても食べれないほど苦手なものってありますよね。 あなたにとっての今でもどうしても苦手なものはなんですか?
-
【お題】引っかけ問題(締め切り10月27日(日)23時)
【大喜利】 「日本で一番高い山は富士山……ですが!」から始まった、それは当てられるわけ無いだろ!と思ったクイズの問題
-
牛、豚、鶏、どれか一つ食べられなくなるとしたら?
牛肉、豚肉、鶏肉のうち、どれか一種類をこの先一生食べられなくなるとしたらどれを我慢しますか?
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
エクセルvbaで転記したのですが、数字のゼロが消えてしまいます。 ゼロも転記するためにはどうしたらい
Excel(エクセル)
-
【Excel VBA】先頭の「0」飛びを埋める方法
Visual Basic(VBA)
-
CSVファイルの「0落ち」にVBA
Access(アクセス)
-
-
4
EXCELVBAにて文字列にして「01」と表示させて、CSV形式で保存すると「1」になってしまう。
その他(プログラミング・Web制作)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
7
VBA 先頭文字の0(ゼロ)を省略しないでコピー
Access(アクセス)
-
8
【ExcelVBA】各セルをダブルクォーテーションで括ってCSV保存したい
Visual Basic(VBA)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
11
EXCELからCSVへ変換すると0が消えてしまいます
Excel(エクセル)
-
12
Excel VBAでCSVファイルを読込むと何故か文字列が日付に変換さ
その他(Microsoft Office)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
VBAを使って選択した範囲の数字(電話番号)の先頭に0を付ける方法が知りたいです。
Visual Basic(VBA)
-
15
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
16
VBAで文字列を数値に変換したい
Excel(エクセル)
-
17
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
18
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
19
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
20
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
エクセルで前年同日・前月同日...
-
Excelで奇数行を削除
-
EXCEL2007で2つのシートのどっ...
-
Excelの列表示で「R1C1形式」の...
-
Excel 表の必要箇所だけを抜き...
-
選択範囲の表を空白を削除して...
-
EXCELの列の幅
-
EXCELで不良率を出そうと思って...
-
excelの列がいっぱいになり列を...
-
EXCELで2つのシートから一致し...
-
セル入力文字が、「右のセルに...
-
パワポの複数ページにまたがる...
-
エクセル、ページをまたがった...
-
エクセルでセルの中の文字が削...
-
ワードの表の行が広がってしまう
-
PDFファイルの罫線を消す方法
-
用紙の真ん中に縦線を入れる方法
-
ワードの文章囲み枠(?)を消...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
EXCELの列の幅
-
エクセルで前年同日・前月同日...
-
エクセルでページ毎の計をつけ...
-
EXCEL2007で2つのシートのどっ...
-
excelの列がいっぱいになり列を...
-
Excel 表の必要箇所だけを抜き...
-
EXCELで2つのシートから一致し...
-
エクセルで電話番号にハイフン...
-
選択範囲の表を空白を削除して...
-
エクセル:最新データ12件で...
-
エクセルVBAで複数列データを1...
-
Excelで奇数行を削除
-
エクセルの余白を0にしても列...
-
ピボットテーブル作成後、重複...
-
EXCELで不良率を出そうと思って...
-
エクセルで縦線のいっぱい入っ...
-
SUMPRODUCT関数で複数条件適用...
-
マクロ VBA 他のブックのデータ...
おすすめ情報