通过Excel模板整理数据后生成txt文档,在有些电脑上是可以正常生成数据,但一些电脑上报“运行时错误3004”,具体代码如下:
'Function to Generate Configuration File
Function GenConfTXT()
Dim filn As String
filn = TextBox1.Text
Dim itemtype As String
itemtype = TextBox2.Text
Dim fldn As String
fldn = TextBox3.Text
Dim dataval As String
Dim tempfile As String
tempfile = "C:/import/tempf23123.txt"
Dim sw As Object
Set sw = CreateObject("ADODB.Stream")
sw.Type = 2 'adTypeText
sw.Mode = 3
sw.Charset = "UTF-8"
sw.Open
Dim fullp As String
fullp = "C:/import_tc/ITEM/Config_item_" & filn & ".txt"
dataval = "DATE FORMAT = %d/%m/%Y"
sw.WriteText dataval, 1
dataval = "TOP FOLDER = Home"
sw.WriteText dataval, 1
dataval = "FOLDER NAME = " & fldn
sw.WriteText dataval, 1
dataval = ""
sw.WriteText dataval, 1
dataval = ""
sw.WriteText dataval, 1
dataval = "CREATE ITEMS = ON"
sw.WriteText dataval, 1
dataval = "UPDATE ITEMS = ON"
sw.WriteText dataval, 1
dataval = "CREATE REVS = ON"
sw.WriteText dataval, 1
dataval = "UPDATE REVS = ON"
sw.WriteText dataval, 1
dataval = ""
sw.WriteText dataval, 1
dataval = "ITEM TYPE = " & itemtype
sw.WriteText dataval, 1
sw.SaveToFile tempfile, 2 'adSaveCreateOverWrite
sw.Flush
sw.Close
Set sw = Nothing
Call Utf8WithoutBom(tempfile, fullp)
Kill (tempfile)
Label17 = "" & Chr(10) & fullp
End Function
请各位高手帮忙看如何能解此问题