0

我有一张 CSV 格式的 Excel 表，然后应该将 CSV 中的数据加载到 oracle 数据库中的表中。

我有一个将 excel 文件转换为 CSV 的 VBscript，但该 excel 表的格式有点不同，因此 CSV 文件没有被正确填充。我附上了一个链接以下载该示例 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 回答
0

这可能令人失望，但是，首先去 csv 可能根本没有必要。您有 Excel，您希望将数据放入 Oracle 表中。假设我们的 Oracle 表“member_list”有三列：姓名、电话、城市。我们的 Excel 数据在 A 列中有名称，B 列中有电话，C 列中有城市。我们的标题在第 1 行，数据从第 2 行开始。在 D2 列中输入以下公式：="into member_list ("&$A$1&","&$B$1&","&$C$1&") VALUES("&A2&",'"&B2&"',' "&C2&")" 将相同的语句复制到每个数据行。返回 SQLDeveloper 类型： 通过将所有“D”列“放入语句”复制到 SQLDeveloper 来插入所有 跟随。最后输入：

执行，您现在已将所有 Excel 数据插入 Oracle。

于 2016-08-16T20:06:43.937 回答