Postup exportu textového souboru s oddělovači čárky i uvozovky v Excelu

Souhrn

Aplikace Microsoft Excel nemá příkaz nabídky pro automatický export dat do textového souboru, aby byl textový soubor exportován s uvozovkami a čárkami jako oddělovači. Například neexistuje žádný příkaz pro automatické vytvoření textového souboru, který obsahuje následující data:

"Text1","Text2","Text3"

Tuto funkci však můžete vytvořit v aplikaci Excel pomocí procedury jazyka Microsoft Visual Basic for Applications.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Příkaz Print # můžete použít v proceduře jazyka Visual Basic, která je podobná následující, a exportovat textový soubor s oddělovači v uvozovkách a čárkách. Aby procedura fungovala správně, vyberte před spuštěním buňky obsahující data.

Než začnete pracovat s následujícím vzorovým kódem, postupujte takto:

1. Otevřete nový sešit.

2. V aplikaci Microsoft Office Excel 2003 nebo Microsoft Excel 2002 přejděte na Makro v nabídce Nástroje a potom klepněte na příkaz Visual Basic Editor. Případně můžete stisknout kombinaci kláves ALT+F11.

   V aplikaci Microsoft Office Excel 2007 klikněte na kartu Vývojář a potom klikněte na Visual Basic ve skupině Kód . Případně můžete stisknout kombinaci kláves ALT+ F11.

   Poznámka

   Pokud chcete na pásu karet zobrazit kartu Vývojář , klikněte na tlačítko Microsoft Office, klikněte na Možnosti aplikace Excel, klikněte na kategoriiOblíbené , zaškrtněte políčko Zobrazit na pásu karet kartu Vývojář a potom klikněte na OK.

3. V Editor Jazyka Visual Basic klikněte v nabídce Vložit na Modul.

4. Do listu modulu zadejte nebo vložte následující ukázkový kód.

   Sub QuoteCommaExport()
      ' Dimension all variables.
      Dim DestFile As String
      Dim FileNum As Integer
      Dim ColumnCount As Long
      Dim RowCount As Long
   
      ' 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
   

5. Před spuštěním makra vyberte data, která chcete exportovat, a spusťte podprogram QuoteCommaExport.