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コードだったり…という事はありませんよね…。
923 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 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078197
(SS)C-BOARD v3.8 is Free