如果存在文件就打开 如果不存在就创建

wfjt

怎么写代码啊

LangQueS

参考代码：

1. Sub 如果指定目录和文件不存在就新建该目录和文件()
   
2. f = Dir("C:\excel", vbDirectory)                      '判断该目录是否存在
   
3. If f = "" Then MkDir ("C:\excel")                     '如果目录不存在就建立
   
4. fn = Dir("C:\excel\临时文件.xls")                     '判断该文件是否存在
   
5. If fn = "" Then
   
6.     Workbooks.Add
   
7.     ActiveWorkbook.Sheets(1).Name = "表1"              '指定第1个工作表名称
   
8.     ActiveWorkbook.Sheets(2).Name = "表2"              '指定第2个工作表名称
   
9.     ActiveWorkbook.SaveAs "C:\excel\临时文件.xls"      '文件名称
   
10.     ActiveWorkbook.Close
    
11. End If
    
12. End Sub
    

复制代码

wfjt

LangQueS 发表于 2012-11-25 21:36
参考代码：

感谢你啊