csvファイル(test.csv)からフラグが1のものを抽出するのですが
最終行に改行がはってしまうので、最終行を削除してcsvファイルを保存したいのですが、
うまくいきません。ご教授ください。
Dim objADO
Dim i
Dim wsql
Dim rs
Dim wHeader
Dim wData
Dim objFSO
Dim objFile
Set objADO = CreateObject('ADODb.connection')
objADO.Open "Driver={Microsoft Text Driver (*.txt;*csv)};"&_
"DBQ=C:\test;"&_
"ReadOnly=1"
'抽出条件
wsql="select * from test.csv where フラグ='1'"
Set rs =objADO.Execute(Wsql)
'ヘッダ部
wHeader='ID,商品名,商品番号,フラグ"
'データ部
wData=""
Do While rs.EOF=False
For i = 0 to rs.fields.count - 1
if i = (rs.fields.count -1) then
wData = wData & chr(34) & rs.Fields.ltem(i) & chr(34) & chr(13)
else
wData = wData & chr(34) & rs.Fields.ltem(i) & chr(34) & ","
end if
next
rs.MoveNext
loop
'最終改行削除?
rs = Left(wData,Len(wData) - Len(chr(13)))
'ファイル出力
set objFSO = createObject("Scripting.FileSystemObject")
set objFile = objFSO.OpentextFile("c:\test\test.csv",2, true)
if err.Number = 0 then
objFile.WriteLine(wHeader)
objFile.WriteLine(wData)
objFile.close
end if
set objFile = Nothing
set objFSO = Nothing
set objADO = Nothing
******************************************
ID,商品名,商品番号,フラグ
100,パソコン,100-12,1
200,ペン,200-11,1
***ここの改行を削除する*****
〔EOF〕
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) FileSearch2007に変わる構文について 1 2022/12/16 16:57
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
最終行の改行について
Visual Basic(VBA)
-
VBA:Openステートメントで開いたCSVファイルの特定行を削除する方法
その他(プログラミング・Web制作)
-
テキストファイルの最終行を削除したいのですが
その他(プログラミング・Web制作)
-
-
4
EXCEL(VBA) 末尾の改行のみ削除したい
Excel(エクセル)
-
5
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
6
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
7
CSVファイルの特定行の削除
Visual Basic(VBA)
-
8
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
9
テキストファイルの最終行を消すには。
Visual Basic(VBA)
-
10
テキストファイルの最終行の改行コード削除
UNIX・Linux
-
11
VBscriptで「改行」と「」を置換させる"
その他(プログラミング・Web制作)
-
12
テキストファイルから改行コードを削除して読込む方法
Visual Basic(VBA)
-
13
VBAでCSVファイルの特定行を書き換える方法はあるのでしょうか?
その他(プログラミング・Web制作)
-
14
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
-
15
文字列からタブコードを取り除きたい
Visual Basic(VBA)
-
16
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
17
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
18
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
19
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
20
VBscriptが起動しない?
Microsoft ASP
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルの途中行から...
-
vbsで最後の行を削除する
-
c#でcsvファイルをリソースとし...
-
CSVファイルの特定行の削除
-
C++言語で、構造体のコピーは可...
-
TortoiseSVNにおける削除ファイ...
-
Access VBAから使用したExcelプ...
-
svnでファイル移動すると履歴が...
-
EXCELVBAにて文字列にして「01...
-
Subversionで日本語ファイル名...
-
jakarta poiを使用し、EXCELの...
-
デスクトップ画面に「◯◯まであ...
-
[SVN]Subversionリポジトリの容...
-
Eclipseのコード入力時の、行コ...
-
Activesheet.Pasteで困っています
-
Excel: ファイル名になぜ、[...
-
彼女の過去の恋愛に嫉妬してし...
-
vbsからのExcelマクロ呼び出し...
-
他プロジェクトのFormを自プロ...
-
複数のExcelファイルにある同名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルの途中行から...
-
vbsで最後の行を削除する
-
c#でcsvファイルをリソースとし...
-
VBSで.csvを.txtに変換は可...
-
Access VBAから使用したExcelプ...
-
デスクトップ画面に「◯◯まであ...
-
Excelのマクロについて教えてく...
-
Eclipseのコード入力時の、行コ...
-
彼女の過去の恋愛に嫉妬してし...
-
CSVファイルの特定行の削除
-
svnでファイル移動すると履歴が...
-
vbsからのExcelマクロ呼び出し...
-
「このファイルを開く前に常に...
-
DataTableに入っているデータを...
-
C++言語で、構造体のコピーは可...
-
Subversionで日本語ファイル名...
-
TortoiseSVNでリポジトリURLの...
-
[SVN]Subversionリポジトリの容...
-
OneDrive必要なものでしょうか
-
TortoiseSVNにおける削除ファイ...
おすすめ情報