Google文档使用双引号导出CSV

时间:2011-09-01 15:32:16

标签: excel csv google-docs

我有一个我需要导出的Google电子表格,并且每个字段都包含在双引号“field”中,但目前它并没有这样做。

有没有一种简单的方法可以实现这一目标而无需手动编辑数百行?

最高

2 个答案:

答案 0 :(得分:4)

您可以从excel使用适当的宏,如下所示:

Sub QuoteCommaExport()

   ' Dimension all variables.

   Dim DestFile As String

   Dim FileNum As Integer

   Dim ColumnCount As Integer

   Dim RowCount As Integer



   ' Prompt user for destination file name.

   DestFile = InputBox("Enter the destination filename" & Chr(10) & "(with complete path):", "Quote-Comma Exporter")



   ' Obtain next free file handle number.

   FileNum = FreeFile()



   ' Turn error checking off.

   On Error Resume Next



   ' Attempt to open destination file for output.

   Open DestFile For Output As #FileNum



   ' If an error occurs report it and end.

   If Err <> 0 Then

      MsgBox "Cannot open filename " & DestFile

      End

   End If



   ' Turn error checking on.

   On Error GoTo 0



   ' Loop for each row in selection.

   For RowCount = 1 To Selection.Rows.Count



      ' Loop for each column in selection.

      For ColumnCount = 1 To Selection.Columns.Count



         ' Write current cell's text to file with quotation marks.

         Print #FileNum, """" & Selection.Cells(RowCount, ColumnCount).Text & """";



         ' Check if cell is in last column.

         If ColumnCount = Selection.Columns.Count Then

            ' If so, then write a blank line.

            Print #FileNum,

         Else

            ' Otherwise, write a comma.

            Print #FileNum, ";";

         End If

      ' Start next iteration of ColumnCount loop.

      Next ColumnCount

   ' Start next iteration of RowCount loop.

   Next RowCount



   ' Close destination file.

   Close #FileNum

End Sub

答案 1 :(得分:2)

我发现您可以使用Open Office实现此目的。从他们可以定义自己的分隔符和周围的字符。

以CSV格式保存/导出时,请选中“定义我自己的字符”框。