把一个excel表格另存的vba代码(vbaxlsm另存为xlsx)

1. vbaxlsm另存为xlsx

1.xls是一个特有的二进制格式，核心结构属于复合型文档类型，是2003版本Office Microsoft Office Excel工作表保存的默认格式。新建Excel表格保存的后缀名为“.xls”。

2.xlsx的核心结构是XML类型结构，采用了XML的压缩方式，使其占用的空间更小，xlsx中最后一个x的意义就在于此，它是Excel2007版本的文件。新建Excel表格默认保存的后缀名为“.xlsx”。

3.xlsm同xlsx一样是属于07年版本的保存文件。一般情况下Excel不会自动启用“宏”，但是老师们在使用过程中可能会需要用到宏功能，在这个时候文件的格式就需要选择xlsm，这样才能够保存表格中的VBA代码，它的后缀名是“.xlsm”。

4.pdf是Portable Document Format的缩写，即可移植文档格式是一种用独立于应用程序、硬件、操作系统的方式呈现文档的文件格式。老师们在生成和输出图片时会保存该格式，其后缀名为“.pdf”。不过需要注意的是Excel导出的pdf文档仅用于阅读，并不可以直接修改。

5.et属于金山办公软件WPS Office中的电子表格文件，相当于微软办公软件的excel一样，可以用Excel打开，也可以下载安装WPS就能打开。

2. vba另存为指定文件名

可以用VBA解决这个问题，在EXCEL中按ALT+F11调出VBA窗口，按“插入－模块”插入一个用户模块，把下面代码粘贴进去：

Sub 保存文件()'要另存的位置在上面 ActiveWorkbook.SaveAs Filename:="\\192.168.5.6\备份\1.xlsm"'下面这个是平时常用的位置 ActiveWorkbook.SaveAs Filename:="e:\文件\1.xlsm"End Sub

3. vba另存为csv

还可以用一个办法，就是用VBA来读取CSV的数据，然后依次写入模板中，应该是可靠的。

4. vbasheet另存为新表

按ALT+F11,插入一个模块,输入下列代码.即可Sub copyAll() fname = "C:\Book2.xls" '需要复制的excel文件地址及文件名,你自己修改 Set d = GetObject(fname) '打开文件 d.sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '将sheet1完全复制到当前表 d.Close '关闭文件 Set d = NothingEnd Sub

5. vba xlsx另存为xls

　　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工作簿的模块里即可，指定区域你可以自己修改下代码，我这里是全表复制的效果。

6. vba 另存为

答解决方法如下

1、2010版本excel编制的带有控件的VBA，换在别的电脑使用有可能会出现“找不到工程或库”的错误，在VBE编辑器，打开工具——引用，可以看到“丢失Ref Edit Control”。

2、解决方法是，先把“丢失Ref Edit Control”的勾取消，然后打开浏览，找到C:\Program Files\Microsoft Office\OFFICE12\目录下选REFEDIT.DLL文件，注意：不同的OFFICE有可能是OFFICE11、12、14等等，有的版本的dll文件是REGEDIT.DLL,点击打开之后——确定——保存，再打开可以了

7. vba excel另存为

代码及注释如下：Sub main()x = Range("A65536").End(3).Row'x的值为A列中最后一个非空单元格行号ReDim a(x)'重新定义数组a，使之上限为xFor i = 1 To x‘i从A1依次往下循环，直到最后一行a(i - 1) = Range("A" & i)'将A列单元格值依次存放于数组中NextEnd Sub

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

Sub save() Dim str As String Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False str = Application.InputBox(prompt:="请输入想要保存的文件名", Type:=2) If str = "" Then Exit Sub End If Set ws = ActiveSheet ws.SaveAs Filename:=str, FileFormat:=xlExcel8 ActiveWindow.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub ****PS：在输入想要保存的文件名的时候，可以以这种格式输入D:文件名.xls就可以改变文件名和保存路径

顶一下

(0)

0%

踩一下

(0)

0%