Указание спецификатора текста при импорте файла CSV в БД SQL Server - PullRequest
Новая
       13

Указание спецификатора текста при импорте файла CSV в БД SQL Server

0 голосов
/ 29 августа 2018

У меня есть CSV-файл с разделителями-запятыми, проблема в том, что в колонках также есть запятая. 

TEXT,["pn","service"]

TEXT находится в одном столбце, а ["pn","service"] - в другом столбце.

Как правильно использовать классификатор текста для правильного разделения столбцов? enter image description here

1 Ответ

0 голосов
/ 29 августа 2018

Мне недавно пришлось столкнуться с этим и предложить обернуть поля идентификатором. Я изменил макрос ниже, чтобы разделить по трубе вместо кавычки. У суперпользователя есть больше опций. Проверить https://support.microsoft.com/en-us/help/291296/procedure-to-export-a-text-file-with-both-comma-and-quote-delimiters-i и https://superuser.com/questions/130592/how-do-you-force-excel-to-quote-all-columns-of-a-csv-file

Обновлено в соответствии с предложениями @ Larnu - что я использую для перемотки некоторых файлов данных перед импортом их для одной загрузки. Просто будьте осторожны, открывая CSV в Excel напрямую ... вы можете увидеть изменения значений. 

Sub PipeCommaExport()
   ' 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
...