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)
-
テキストファイルの最終行を削除したいのですが
その他(プログラミング・Web制作)
-
EXCEL(VBA) 末尾の改行のみ削除したい
Excel(エクセル)
-
-
4
VBA:Openステートメントで開いたCSVファイルの特定行を削除する方法
その他(プログラミング・Web制作)
-
5
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
6
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
7
CSVファイルの特定行の削除
Visual Basic(VBA)
-
8
テキストファイルから改行コードを削除して読込む方法
Visual Basic(VBA)
-
9
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
10
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
11
テキストファイルの最終行の改行コード削除
UNIX・Linux
-
12
VBscriptで「改行」と「」を置換させる"
その他(プログラミング・Web制作)
-
13
テキストファイルの最終行を消すには。
Visual Basic(VBA)
-
14
VBAでの行削除について
その他(プログラミング・Web制作)
-
15
VBscriptが起動しない?
Microsoft ASP
-
16
VBSでExcelシートのコピー
Visual Basic(VBA)
-
17
文字列からタブコードを取り除きたい
Visual Basic(VBA)
-
18
VBAでCSVファイルの特定行を書き換える方法はあるのでしょうか?
その他(プログラミング・Web制作)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbsで最後の行を削除する
-
テキストファイルの途中行から...
-
c#でcsvファイルをリソースとし...
-
プログラムについて。
-
CSVファイルの特定行の削除
-
svnでファイル移動すると履歴が...
-
TortoiseSVNでリポジトリURLの...
-
デスクトップ画面に「◯◯まであ...
-
ファイルが移動してもリンクの...
-
DataTableに入っているデータを...
-
OneDrive必要なものでしょうか
-
[Unity]シーンファイルの中が消...
-
EXCELVBAにて文字列にして「01...
-
svnadmin loadをするとエラーする
-
TortoiseSVNにおける削除ファイ...
-
「tar xvf」「tar zxvf」の違い
-
HTMLのファイル移動について
-
Ctrl + Cなど複数の入力キー...
-
Subversionで日本語ファイル名...
-
WINDOWS CMDからゴミ箱のファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルの途中行から...
-
vbsで最後の行を削除する
-
c#でcsvファイルをリソースとし...
-
VBSで.csvを.txtに変換は可...
-
CreateTextFileをするには?
-
セルの値でフォルダやファイル...
-
svnでファイル移動すると履歴が...
-
デスクトップ画面に「◯◯まであ...
-
iCloud for Windowsをアンイン...
-
Access VBAから使用したExcelプ...
-
vbsからのExcelマクロ呼び出し...
-
TortoiseSVNにおける削除ファイ...
-
CSVファイルの特定行の削除
-
C++言語で、構造体のコピーは可...
-
EXCELVBAにて文字列にして「01...
-
DataTableに入っているデータを...
-
OneDrive必要なものでしょうか
-
マウントしたディスクにcpで、...
-
Subversionで日本語ファイル名...
-
Excel: ファイル名になぜ、[...
おすすめ情報