编程论坛 → VB6论坛

[求助]请各位大神帮下忙，想用VB6调用excel表格里面的数据，做一个一键生成文本格式。附件已上传

zxh48911805 发布于 2022-08-19 10:52， 1320 次点击

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2022-8-19 11:07编辑过]

5 回复

zxh489118052022-08-19 10:54

[求助]

[求助]原始数据.xls里面有数据和宏，最好excel表格里面只能看到数据看不到宏。谢谢各位大神修改下小弟在线等谢谢。

[此贴子已经被作者于2022-8-19 11:08编辑过]

cwa99582022-08-20 08:41

方法是很简单，但是做起来很繁琐。
用excel对象打开文件，读出数据，然后保存在文本文件里就可以了。如果保存为csv格式，也可以用excel打开。

约定的童话2022-08-20 10:31

Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim AppExcel As Object
    Set xlExcel = CreateObject("Excel.Application")
先创建进程，然后读取数据到数组，然后导出成文本。。。。
Open ff.Path & "\123.txt" For Output As #1 '写回去
                For w = 1 To UBound(arr)
                    Print #1, arr(w)
                Next
                Close #1

zxh489118052022-08-20 15:51

谢谢楼上的朋友，有个问题想请教下。我在窗体加了两个菜单按钮，模块中写了两个宏。怎么把菜单按钮对应模块中写了两个宏联系起来。

cwa99582022-08-20 16:15

在编辑模式下，直接双击按钮，在按钮的单击事件里写代码就是了。
电脑上没有excel，看不到你的代码。