Excel输出到文件

我有一个Excel表中的SQL命令列表。 与此类似：

更新表1设置数据= 100其中点= 123
更新表1设置数据= 100其中点= 421
更新表1设置数据= 100其中点= 12333
更新表1设置数据= 100其中点= 90

'4'

其中4表示命令的数量。 我需要的是导出到.sql文件并保存。 我find了一个很棒的教程，帮了我很多，但最后还是有一句话说不用担心双引号。
那么我呢。
我的代码如下所示：

Sub OpenTextFile（）

Dim FilePath As String
Dim LastRow As Long
Dim CellData As String

FilePath = ThisWorkbook.Path＆“\”＆“update.sql”
LastRow = ActiveSheet.UsedRange.SpecialCells（xlCellTypeLastCell）.Row

打开FilePath输出为＃1
对于我= 1到LastRow
CellData = ActiveCell（i）.Value
写＃1，CellData
接下来我
closures＃1

结束小组

和出口数据，但我找不到摆脱这些报价beacouse输出的方式如下所示：

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

等等。

Answer 1

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

这在我的testing中为我工作。 进一步阅读这里： https : //msdn.microsoft.com/en-us/library/office/gg264278.aspx