Excel里VBA的使用

最新推荐文章于 2022-06-22 22:30:00 发布

带刀走江湖

最新推荐文章于 2022-06-22 22:30:00 发布

阅读量823

点赞数

分类专栏：办公软件文章标签： VBA

本文链接：https://blog.csdn.net/LD946522524/article/details/85617422

版权

这篇博客介绍了如何使用VBA在Excel中创建一个宏，将多个工作表的数据导出到两个不同的文本文件中。宏分别打印了不同类型的订单报表，包括每日订单数据、已分配和未分配库存的详细信息。

摘要由CSDN通过智能技术生成

1.开启开发工具菜单
左上角“office” LOGO下，“Excel选项”下的“常用“下的在功能区显示“开发工具”选项卡;
2.VBA打开快捷键Alt+F11;
3.VBA返回Excel快捷键Alt+Q;
4.注释代码无快捷键，调出编辑工具栏：视图--工具栏--编辑--设置注释块；
5.换行“空格”+“_”,应用方式“ _”；

6.当文件过大时需要新建模块，为了将几个模块的数据添加到一个文档里，
将原来的代码Open Application.ActiveWorkbook.Path & "\" & Filename For Output As #1
修改为Open Application.ActiveWorkbook.Path & "\" & Filename For Append As #1

定义一个函数
Sub duXieTxt()

Filename = "test01.txt"
Open Application.ActiveWorkbook.Path & "\" & Filename For Output As #1
neiRong = "内容"
Print #1, neiRong
Print #1, ActiveSheet.Range("b5")
Cells(3, 1) = 66666
Print #1, neiRong
Close #1

End Sub

Sub duXieTxt()

Filename = "data.txt"
Open Application.ActiveWorkbook.Path & "\" & Filename For Output As #1

Print #1, Worksheets("sheet3").Range("A1") & Worksheets("sheet3").Range("B1")
Print #1, Worksheets("sheet3").Range("A2") & Worksheets("sheet3").Range("B2") & Worksheets("sheet3").Range("C2") _
& Worksheets("sheet3").Range("D2") & Worksheets("sheet3").Range("E2") & Worksheets("sheet3").Range("F2") _
& Worksheets("sheet3").Range("G2") & Worksheets("sheet3").Range("H2")

Close #1

End Sub

Sub duXieTxt()


Filename = "data.txt"
Open Application.ActiveWorkbook.Path & "\" & Filename For Output As #1

'1.2019年01月01日订单报表
Print #1, Worksheets("sheet3").Range("A1") & Worksheets("sheet3").Range("B1") & Worksheets("sheet1").Range("A1") _
& Worksheets("sheet3").Range("D1")

'订单数据+仓库名称
Print #1, Worksheets("sheet3").Range("A2") & Worksheets("sheet3").Range("B2") & Worksheets("sheet3").Range("C2") _
& Worksheets("sheet3").Range("D2") & Worksheets("sheet3").Range("E2") & Worksheets("sheet3").Range("F2") _
& Worksheets("sheet3").Range("G2") & Worksheets("sheet3").Range("H2")

'当日订单总数
Print #1, Worksheets("sheet3").Range("A3") & Worksheets("sheet1").Range("A3") _
& Worksheets("sheet3").Range("B3") & Worksheets("sheet1").Range("B3") _
& Worksheets("sheet3").Range("C3") & Worksheets("sheet1").Range("C3") _
& Worksheets("sheet3").Range("C3") & Worksheets("sheet1").Range("D3