Excel VBA質問箱 IV

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

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


19845 / 76732 ←次へ | 前へ→

【62313】Re:CSVから全角数字を取得すると日付形式になってしまう
発言  kanabun  - 09/7/8(水) 15:02 -

引用なし
パスワード
   ▼会社員 さん:

>上記.txtファイルはLF改行により2レコード存在しているのですが、
>1レコード目は正しくVBScriptでデータを取得できるのですが2レコード目が取得されず次のようなダイアログが出てしまいます。

>「.txt」ファイルの中身は以下のようになっています。
>20090705000000,12345678901234,,,,,・・・[LF改行]
>20090705000000,12345678901234,,,,,・・・[LF改行]
>[EOF]


>エラーとなるソースを以下に示します。
>Workbooks.OpenText Filename:=(txtファイル) _
>    , Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
>    xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma _
>    :=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, _
>    2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2) _

ということは、どの列もすべて「文字列」として読めばいいのですか?

試しに、基本的に会社員さんと同じですが、下のコードをお試しください。

◆元のCSVファイルの複製を作成してそれをプログラムから
 開きます。
◆元のファイルは閉じておいてください。

Sub Try2_OpenText()
 Dim myFile
 Dim myText As String
 Dim FieldInfo(1 To 256)
 Dim i As Long
 
 myFile = Application.GetOpenFilename("CSVファイル,*.csv")
 If myFile = False Then Exit Sub
 
 myText = Replace(LCase$(myFile), ".csv", ".txt")
 FileCopy myFile, myText
 
 For i = 1 To 256
   FieldInfo(i) = Array(i, 2)
 Next
 Workbooks.OpenText myText, Origin:=932, _
   TextQualifier:=xlDoubleQuote, _
   Tab:=False, Semicolon:=False, Comma:=True, _
   Space:=False, Other:=False, _
   FieldInfo:=FieldInfo
   
End Sub

0 hits

【62296】CSVから全角数字を取得すると日付形式になってしまう 会社員 09/7/8(水) 11:12 質問
【62297】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:17 質問
【62299】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 11:27 質問
【62301】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:33 発言
【62302】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 11:37 発言
【62304】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:41 発言
【62303】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:39 発言
【62306】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 12:00 お礼
【62307】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 13:37 発言
【62308】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 13:53 発言
【62298】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 11:18 発言
【62300】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 11:32 発言
【62305】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 11:44 発言
【62309】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 14:19 質問
【62310】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 14:38 発言
【62311】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 14:48 発言
【62312】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 14:52 発言
【62314】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 15:05 発言
【62316】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 15:23 発言
【62313】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 15:02 発言
【62315】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 15:09 発言
【62319】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 16:43 お礼
【62320】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 16:47 発言
【62322】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 19:38 お礼

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