Excel写入数据报错“运行时错误3004”

Question

通过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
请各位高手帮忙看如何能解此问题

Answer 1

下载驱动精灵安装缺少的驱动，并且请注意，win10和win11有细小的差距，有可能是系统原因无法运行
如果可以的话麻烦给个关注，感谢