[已解决]在磁盘上新建excel文件

xdwy81129

不是通过打开excel程序在当前窗口新建excel文件然后保持在指定的磁盘位置

而是直接在磁盘上（F:\我的文件夹\）新建一个excel文件，任何再重命名该excel文件叫“老师.xls”--------请教这样的操作用vba怎么写

具体我平常的操作是，定位到F:\我的文件夹\，如果通过右击----新建----Microsoft Excel 工作表，这样就在该位置产生了一个新的文件，然后我再重命名该文件叫老师.xls

另：如果我需要通过右击新建的是word文档，vba语句又该怎么写呢？？

谢谢赐教

最佳答案

月排行榜 / 总排行榜

阿童木

2011-1-6 08:38

先通过你右键方式新建一个你需要的工作簿放在某处，比如C:\Program Files\Microsoft Office\OFFICE11 取名为ABC.XLS
当要创建新的文件时，运行以下程序：

1. Sub 新建()
   
2.     FileCopy "C:\Program Files\Microsoft Office\OFFICE11\ABC.XLS", "E:\新文件.xls"
   
3. End Sub

复制代码

跳转到最佳答案楼层

raulerini

只是单纯的建立一个文件，不往里面输入任何内容吗？？{:011:}

和气生财

你要的效果是否是在一个excel文件下运行vba, 然后得到一个例如 教师.xls 的excel文件？
如果是的话，就用你否定的那个方法就行了。

dim myworkbook as workbook

set myworkbook=thisworkbook
workbooks.add
activeworkbook.saveas "f:\myfolder\teacher.xls"
activeworkbook.close
myworkbook.activate

xdwy81129

和气生财 发表于 2011-1-4 10:47
你要的效果是否是在一个excel文件下运行vba, 然后得到一个例如 教师.xls 的excel文件？
如果是的话，就用你 ...

谢谢，用我否定的方法不行，必须是先在磁盘上生成excel文件再重命名。

期待高手帮忙解答

开辆小富康

同问：既然是用VBA编写，那么一般也就是在EXCEL或者WORD或者ACCESS等应用软件中编写了，楼上的回答能够实现你的功能，有什么不好呢？要不你就直接用VB生成吧，不要用VBA

阿童木

不明白为什么一定要这样建？有啥区别么？

xdwy81129

开辆小富康 发表于 2011-1-4 15:41
同问：既然是用VBA编写，那么一般也就是在EXCEL或者WORD或者ACCESS等应用软件中编写了，楼上的回答能够实现 ...

也同时回楼上的，确实存在区别，而且还很大。

如：我自己已经用得excel文件宽度1.25为15个像素，而通过excel新建的文件宽度没有1.25，而只能是1.67（15个像素），导致原来设置格式的语句不好用了

同时，如果我认为的方法可以做到的话，也很各其中生活和工作带来方便

阿童木

没有发现你说书的情形

hhzjxss

楼主米讲清楚！:L

青城山苦丁茶

Sub 新建()
Set ExcelApplication = CreateObject("Excel.Application")
With ExcelApplication
    .Workbooks.Add
    .ActiveWorkbook.SaveAs Filename:="d:\a.xlsx"   '电脑上只有2010，所以是xlsx
    .Quit
End With
End Sub