0

CSV形式で保存したいExcelシートがあり、CSVのデータをOracleデータベースのテーブルにロードする必要があります。

ExcelファイルをCSVに変換するVBscriptがありますが、そのExcelシートの形式が少し異なるため、CSVファイルが正しく入力されていません。そのサンプルExcelシートをダウンロードするためのリンクを添付しています。Excelシート

赤い色のテキストがフィールドであり、それぞれのデータが次のセルにあることに気付いた場合。見出しの日付データの例は2000年1月1日です。そのvbscriptを使用してこれを変換するとき、そのcsvをダウンロードするためのリンクをここに添付しています。

これらのコンマをすべて削除し、その列1（長さ10）およびその他すべてを削除します。CSVファイルには、見出しとそのデータのみが含まれている必要があります。これを手伝ってくれませんか。

前もって感謝します。VBscriptコードはここにあります：-

WorkingDir = "C:\Users\vijaywp\Desktop"
Extension = ".XLS"

Dim fso, myFolder, fileColl, aFile, FileName, SaveName
Dim objExcel,objWorkbook

Set fso = CreateObject("Scripting.FilesystemObject")
Set myFolder = fso.GetFolder(WorkingDir)
Set fileColl = myFolder.Files

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = False
objExcel.DisplayAlerts= False

For Each aFile In fileColl
ext = Right(aFile.Name,4)
If UCase(ext) = UCase(extension) Then
'open excel
FileName = Left(aFile,InStrRev(aFile,"."))
Set objWorkbook = objExcel.Workbooks.Open(aFile)
SaveName = FileName & "csv"
objWorkbook.SaveAs SaveName, 23
objWorkbook.Close 
End If  
Next

Set objWorkbook = Nothing
Set objExcel = Nothing
Set fso = Nothing
Set myFolder = Nothing
Set fileColl = Nothing

この変換後、CSVデータをOracleデータベーステーブルにロードする必要があります。助けてください。

期待されるCSV出力へのリンクは次のとおりです：-期待されるCSV出力

4

2 に答える 2

0

CSV ファイルにカスタム形式が必要な場合は、Excel を行ごと、列ごとに読み取り、選択したとおりにデータを CSV に書き込みます。

列のコンマだけが問題の場合は、オプションを使用して列のテキストを二重引用符で囲み、そこにあるコンマが問題にならないようにします。

于 2013-03-11T06:03:35.660 に答える