Question

VB 通过编程命名excel 我想excel的文件名根据日期来命名，但是这样我的程序行不通，麻烦各位大侠看看

Option Explicit
Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(2)
xlsheet.Cells(1, 1) = "abcdef"
Dim Sj As Date
Sj = Format(Now, "yyyy-mm-dd")
xlbook.SaveAs FileName:="d:\Sj.xls"
xlbook.Close
xlapp.Quit
Set xlapp = Nothing
End Sub

Answer 1

xlbook.SaveAs FileName:="d:\Sj.xls"
把上面这一行修改成下面的：
xlbook.SaveAs FileName:="d:\" & Sj & ".xls"

Answer 2

xlbook.SaveAs FileName:="d:\" + Sj + ".xls"

追问

显示类型不匹配

追答

Dim Sj As String

追问

你好，很好用，谢谢，我还想把时间带上去怎么编呢。

追答

Sj = Format(Now, "yyyy-mm-dd_hhmmss")

因为文件名不能用冒号，也可以用全角冒号作为间隔。

追问

您好，非常感谢您。你能留个邮箱么？我刚接触VB ，有不懂得还想向您请教一点。

追答

我也是业余选手，大家共同学习、共同进步。
q.ning@yahoo.cn