Excel'de hem virgül hem de tırnak ayırıcıları olan bir metin dosyasını dışarı aktarma yordamı

Özet

Microsoft Excel'de, metin dosyasının hem tırnak işaretleri hem de virgüllerle sınırlayıcı olarak dışarı aktarılabilmesi için otomatik olarak metin dosyasına veri aktarmaya yarayan bir menü komutu yoktur. Örneğin, aşağıdaki verileri içeren bir metin dosyasını otomatik olarak oluşturmaya yönelik bir komut yoktur:

"Metin1","Metin2","Metin3"

Ancak, bir Microsoft Visual Basic for Applications yordamı kullanarak Excel'de bu işlevi oluşturabilirsiniz.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Sınırlayıcı olarak hem tırnak işaretleri hem de virgüller içeren bir metin dosyasını dışarı aktarmak için aşağıdakine benzer bir Visual Basic yordamında Print # deyimini kullanabilirsiniz. Yordamın düzgün çalışması için, çalıştırmadan önce verilerinizi içeren hücreleri seçin.

Aşağıdaki örnek kodla çalışmadan önce şu adımları izleyin:

1. Yeni bir çalışma kitabı açın.

2. Microsoft Office Excel 2003'te veya Microsoft Excel 2002'de, Araçlar menüsünde Makro'ya gidin ve Visual Basic Düzenleyici'ne tıklayın. Alternatif olarak, ALT+F11 tuşlarına basın.

   Microsoft Office Excel 2007'de Geliştirici sekmesine ve ardından Kod grubunda Visual Basic'e tıklayın. Alternatif olarak, ALT + F11 tuşlarına basın.

   Not

   Şeritte Geliştirici sekmesini göstermek için , Microsoft Office Düğmesi'ne tıklayın, Excel Seçenekleri'ne tıklayın,Popüler kategorisine tıklayın, Şeritte Geliştirici sekmesini göster onay kutusunu seçmek için tıklayın ve ardından Tamam'a tıklayın.

3. Visual Basic Düzenleyici Ekle menüsünde Modül'e tıklayın.

4. Modül sayfasına aşağıdaki örnek kodu yazın veya yapıştırın.

   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. Makroyu çalıştırmadan önce, dışarı aktarmak istediğiniz verileri seçin ve ardından QuoteCommaExport alt dağıtımını çalıştırın.