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

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

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

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

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

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

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