Excel输出到文件

Question

我在Excel工作表中有SQL命令列表。与此类似：

  

更新table1 set data = 100 where point = 123
  update table1 set data = 100 where point = 421
  update table1 set data = 100 where point = 12333
  update table1 set data = 100 where point = 90
  
  '4'

其中4表示命令的数量。 我需要的是导出到.sql文件并保存。 我找到了一个很棒的教程，对我帮助很大，但最后有一条线说不要担心双引号。
好吧，我这样做 我的代码如下所示：

  

Sub OpenTextFile（）
  
  Dim FilePath As String
  Dim LastRow As Long长   Dim CellData As String
  
  FilePath = ThisWorkbook.Path＆amp; “\”＆amp; “update.sql”
  LastRow = ActiveSheet.UsedRange.SpecialCells（xlCellTypeLastCell）。行
  
  打开文件路径输出为＃1
  对于i = 1到LastRow
     CellData = ActiveCell（i）.Value
     写＃1，CellData
  接下来我
  关闭＃1
  
  结束子

并导出数据，但我找不到摆脱这些引用的方法beacouse输出看起来像：

  

“update table1 set data = 100 where point = 123”

等等。

Answer 1

将Write #1, CellData更改为Print #1, CellData

在我的测试中，这对我有用。进一步阅读：https://msdn.microsoft.com/en-us/library/office/gg264278.aspx