Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2009 / 9994 ←次へ　｜　前へ→
【11265】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下にあるtxtをインポートしたい。
回答  小僧  - 09/12/7(月) 17:27 -
引用なし
パスワード
   ▼cocoa さん：
こんにちは。

> データ自体はインポートされております。

ご提示されたコードの通り実行されているとすると、
1つでもデータにエラーがあった場合は
テーブルに書き込まない処理になってますね。

INPUTDATA テーブルを空っぽにしてから
もう一度テストされてみて下さい。


テーブルに書き込みの処理があったり、
ファイルを選ぶ処理があったりすると複雑になるので
下記の様なコードで試されてみて下さい。


Sub test2()
Const strFilePath = "C:\Test.csv"
Dim FNo As Long
Dim txtData As String
Dim arrData As Variant
Dim i As Long

　　FNo = FreeFile
　　Open strFilePath For Input As #FNo
　　　　
　　Line Input #FNo, txtData
　　
　　i = 2
　　 Do While Not EOF(FNo)
　　　　　　
　　　　Line Input #FNo, txtData
　　　　
　　　　arrData = Split(txtData, ",")
　　　　
　　　　If InStr(1, arrData(7), "　　") = 0 Then
　　　　　　MsgBox i & "行目にスペース4つがありません" _
　　　　　　　　　 & vbCrLf & vbCrLf & "DATA:" & arrData(7)
　　　　　　GoTo ExitEXE
　　　　End If
　　　　i = i + 1
　　 Loop

ExitEXE:
　　Close #FNo

End Sub


メモ帳でCSVファイルを開くと半角4つ分の空白ですけど、
実はTABコードだったり…という事はありませんよね…。
922 hits
▼ 【11255】ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下にあるtxtをインポートしたい。 cocoa 09/12/4(金) 16:13 質問[未読]
【11256】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/4(金) 19:35 発言[未読]
【11257】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/7(月) 11:16 発言[未読]
【11258】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/7(月) 14:23 質問[未読]
【11259】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/7(月) 15:17 回答[未読]
【11261】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/7(月) 16:25 質問[未読]
【11262】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/7(月) 16:42 回答[未読]
【11263】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/7(月) 16:53 質問[未読]
【11264】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/7(月) 17:11 質問[未読]
【11265】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/7(月) 17:27 回答[未読]≪
【11271】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/8(火) 15:11 質問[未読]
【11272】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/8(火) 18:57 発言[未読]
【11273】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/9(水) 10:09 質問[未読]
【11274】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/9(水) 11:09 回答[未読]
【11275】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/9(水) 14:05 質問[未読]
【11276】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/9(水) 19:22 発言[未読]
【11278】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/10(木) 9:19 質問[未読]
【11279】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/10(木) 9:45 回答[未読]
【11281】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/10(木) 10:19 質問[未読]
【11282】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/10(木) 12:46 回答[未読]
【11283】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/10(木) 13:17 質問[未読]
【11284】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/10(木) 14:30 質問[未読]
【11285】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/10(木) 14:51 質問[未読]
【11286】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/10(木) 15:13 質問[未読]
【11289】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/11(金) 11:00 回答[未読]
【11290】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/11(金) 11:46 お礼[未読]
【11292】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... 小僧 09/12/11(金) 15:23 発言[未読]
【11296】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/14(月) 14:40 お礼[未読]
【11260】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... Nao 09/12/7(月) 15:19 回答[未読]
【11291】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下に... cocoa 09/12/11(金) 11:48 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2009 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078196
(SS)C-BOARD v3.8 is Free