2012-02-02 140 views
1

我寫了一個宏來將excel單元轉儲到記事本文件中。單元格的內容連同「使用Print #1在.txt文件。我該如何擺脫雙引號將其寫入文件之前?刪除雙引號 - Excel到記事本

Sub makeFile1() 

    Dim ce As Range 
    Dim ws As Worksheet 

    Open "C:\queries.txt" For Output As #1 
    For Each ws In ActiveWorkbook.Worksheets 
      Write #1, "Create Table " & ws.Name 
      For Each ce In Range("G2:G10") 
       If ce.Next = "" Then 
       Write #1, ce.Value 
       ElseIf ce.Value <> "" Then 
       Write #1, ce.Value & "," 
       End If 

      Next ce 
    Next ws 
    Close #1 

End Sub 

回答

0

,而不是Write #1

Sub makeFile1() 
Dim ce As Range 
Dim ws As Worksheet 

Open "C:\queries.txt" For Output As #1 
For Each ws In ActiveWorkbook.Worksheets 
     Print #1, "Create Table " & ws.Name 
     For Each ce In Range("G2:G10") 
      If ce.Next = "" Then 
      Print #1, ce.Value 
      ElseIf ce.Value <> "" Then 
      Print #1, ce.Value & "," 
      End If 

     Next ce 
Next ws 
Close #1 

End Sub 
+0

感謝出現很抱歉,延遲迴復 – user1184388 2012-02-28 07:41:19