licijianwayne 2020-03-05 14:41 采纳率: 0%
浏览 326

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

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

  • 写回答

1条回答 默认 最新

  • 吴Hen 2024-02-23 20:39
    关注

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

    评论

报告相同问题?

悬赏问题

  • ¥15 C++使用Gunplot
  • ¥15 这个电路是如何实现路灯控制器的,原理是什么,怎么求解灯亮起后熄灭的时间如图?
  • ¥15 matlab数字图像处理频率域滤波
  • ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
  • ¥15 ELGamal和paillier计算效率谁快?
  • ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?
  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 关于#r语言#的问题:差异分析前数据准备,报错Error in data[, sampleName1] : subscript out of bounds请问怎么解决呀以下是全部代码:
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)