vba将excel表另存为word文件(vbaxlsm另存为xlsx)

1. vbaxlsm另存为xlsx

1、可以用“=”加上一组函数来自动生成、选取、计算数据2、引入表外数据，做数据链接3、编写VBA代码注意：如果是手动写入，需要写成“=【表格名称.xlsx】sheet名称！函数

2. vba另存为指定文件名

不知道你是不是要改变复制后文件夹的名称，如果只是一两个的话，很简单的PublicSubfuzhi()Application.Workbooks.Open"C:\Users\jason\Desktop\VBA\wenjuan.xlsm"’打开文件ActiveWorkbook.SaveAs"C:\Users\jason\Desktop\VBA1111\wenjuan.xlsm"‘复制路径ActiveWorkbook.Close’关闭文件EndSubC:\Users\jason\Desktop\VBA1111这个就是你的文件的位置，不管是打开的还是保存的都是可以变的，你看看行不行，有问题再补充吧

3. vba另存为csv

一般的为xlsx，xls等。

xlsx是Microsoft Office EXCEL 2007/2010/2013/2016/2019文档的扩展名。其基于Office Open XML标准的压缩文件格式取代了其以前专有的默认文件格式，在传统的文件名扩展名后面添加了字母“x”（即“.docx”取代“.doc”、“.xlsx”取代“.xls”、“.pptx”取代“.ppt”）。

任何能够打开“.xlsx”文件的文字处理软件都可以将该文档转换为“.xls”文件，“.xlsx”文件比“.xls”文件所占用空间更小。

4. vba xlsx另存为xls

Excel xls和xlsx的区别在于：

1、核心结构上：xls 是一个特有的二进制格式，其核心结构是复合文档类型的结构，而 xlsx 的核心结构是 XML 类型的结构，采用的是基于 XML 的压缩方式，使其占用的空间更小。xlsx 中最后一个 x 的意义就在于此。

2、版本上：xls是2003版本下的文件 ，不管有没有宏程序的话都是xls文件 ，从2007开始做了区分，XLSM文件和XLSX文件都是excel2007及其以后的文件，但前者是含有宏启用，Excel中默认情况下不自动启用宏，默认是XLSX。VBA中，如果不想保存代码，可以保存为xlsx，即可自动删除其中VBA代码，反之则保存为XLSM文件。

3、默认保存方式上：xls是03版Office Microsoft Office Excel 工作表的格式，用03版Office，新建Excel默认保存的Excel文件格式的后缀是.xls；xlsx是07版Office Microsoft Office Excel 工作表的格式，用07版Office，新建Excel默认保存的的Excel文件格式后缀是.xlsx。

4、打开的文件类别上： 07版的Office Excel，能打开编辑07版（后缀.xlsx）的Excel文件，也能打开编辑03版（后缀.xls）的Excel文件，都不会出现乱码或者卡死的情况。03版的Office Excel，就只能打开编辑03版（后缀.xls）的Excel文件；如果打开编辑07版（后缀.xlsx）的Excel文件，则可能出现乱码或者开始能操作到最后就卡死，以后一打开就卡死。

5. vba怎么另存为到指定文件夹

Sub test()

Dim i, j As Variant

i = InputBox("请输入需要填入的内容")

Set j = Sheets("数据").Range("b:b").Find(i)

If j Is Nothing Then

MsgBox ("没有找到【该应用单位】")

Else

Sheets("报告").Range("P4") = j

End If

End Sub

6. vba 另存为

写代码的时候，放到sheet里面就行了。

7. excel vba 另存为xlsx格式

　　Sub新建工作簿()　　Application.ScreenUpdating=False　　DimgzbAsWorkbook　　Setgzb=Workbooks.Add　　ActiveSheet.Name="1-a"　　Workbooks("A.xls").Sheets("a").Cells.Copy[a1]　　Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name="1-b"　　Workbooks("A.xls").Sheets("b").Cells.Copy[a1]　　gzb.SaveAsThisWorkbook.Path&"\1-A.xls",FileFormat:=xlExcel8　　Setgzb=Nothing　　ActiveWorkbook.Close　　Application.ScreenUpdating=True　　EndSub这个vba代码写在A工作簿的模块里即可，指定区域你可以自己修改下代码，我这里是全表复制的效果。