如何用代码,生成以单元格A1命名的excel文件,并自动存放到当前目录 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 “单元格A1命名的excel文件”?A1.xls?还是A1中的内容 Dim sPath As String Dim app As New Excel.Application Dim Workbook As Excel.Workbook Set Workbook = app.Workbooks.Add '这时是获得当前Excel的路径 sPath = ThisWorkbook.Path Workbook.SaveAs sPath + "\aba.xls" Workbook.Close Set Workbook = Nothing Set app = Nothing 把aba.xls改为 A1单元格的字串就行 终于知道在哪看自己的可用分了,高兴啊,散分~~~~ 如何在excel表中,每50行插入一个分页符? vb6中 winsock控件的双向传输问题 问:有谁知道FarPoint公司的Spread控件 中文的相关信息? 超高分请教一个问题(1000分) 关于VC和中文VB的兼容问题 交叉查询! 新人报道~~~~ 怎样让数据报表自动移动记录指针(高分) 小弟论坛开张了,请大家有空去坐坐阵!(注:是动网论坛,小弟无能力自己编) 自制控件 Picture属性 提示属性使用无效! 为何下面判断WORD文档中有无边框或底纹的代码会出现误报?
Dim app As New Excel.Application
Dim Workbook As Excel.Workbook
Set Workbook = app.Workbooks.Add
'这时是获得当前Excel的路径
sPath = ThisWorkbook.Path
Workbook.SaveAs sPath + "\aba.xls"
Workbook.Close
Set Workbook = Nothing
Set app = Nothing