作者:乔山办公网日期:
返回目录:excel表格制作
下面的一个语抄句就可以了:
ActiveWorkbook.SaveAs Filename:="C:\A\" * range("a1") & ".csv", FileFormat:=xlCSV
你的单元格袭aa&bb我不明白是什么意思,我例子语百句使用的a1,你自度行修改即可。
实现的方百法和详细的操作步骤如下:
1、首先,在桌面第一章中,每个工作簿的名称都放在工作表中,如下图所示,然后进入下一步。
2、其次,完成上述步骤后,度创建问一个新的工作簿,将其命名为“第一章目录”,然后按“alt + f11”组合键打开“宏”界面,如下图所示,然后进入下一步。
3、接着,完成上述步骤后,在VBA中,单击“插入”按答钮,然后选择“模块”选项以创建新模块,如下图所示,然后进入下一步。
4、然后,完成上述步骤后,输入如下红框中的代码,如下图所示,然后进入下一步。
5、随后,完成上述步骤后,返回到名为“第一章目录”的工作簿,然后按“alt + f8”组合键调出回“宏”对话框,如下图所示,然后进入下一步。
6、最后,完成上述步骤后,单击“宏”对话框中的“执行”按钮,“宏”对话框自动关闭,代码自动执行,即第一页中的每个文件夹名称都显示在答sheet1中,可以根据需要调整格式,如下图所示。这样,问题就解决了。
文件的扩展名不是随便可以改的,一般都是软件保存文件的时候自动copy生成的,关系到文百件默认打开的软件。
如后缀名为XLSM的文件就是带有宏的EXCEL文件,.XLS和.XLSX分别是2003版以前和2007版以上的EXCEL文件格式,不是说度文件的扩展名改一下就问变成了答XLSM文件了。而是要在文件中增加宏并另存为带有宏的EXCEL文件,就自动会在磁盘上的文件夹里面保存一个后缀名为XLSM的文件了
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".csv" '(工作百表名度称问为文答件名内)容
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub