VB输出excel，对文件命名的方法

xlApp.Visible=TruexlBook.SaveAs(App.Path&"\"&""&rstPartInfo("零件名称")&""&datatime.tostr... xlApp.Visible = True
xlBook.SaveAs (App.Path & "\" & "" & rstPartInfo("零件名称") & "" & datatime.tostring() & ".xls")

Set xlBook = xlApp.Workbooks.Open("" & rstPartInfo("零件名称") & ".xls")

'xlBook.Close

Set xlBook = Nothing
Set xlSheet1 = Nothing
Set xlApp = Nothing
这是原来的代码，输出了一个excel，保存的时候对它进行了命名。

现在想要改变保存方式，原来的话就自动保存了，现在想把表打开，人为选择是否保存这个表。如果直接去掉save这句的话，文件名不知道该怎么给？？

好纠结，高手帮忙看看呀展开

 我来答

3个回答

#热议# 不吃早饭真的会得胆结石吗？

veimi
2012-05-11 · TA获得超过2350个赞

知道大有可为答主

回答量：5720

采纳率：28%

帮助的人：3045万

我也去答题访问个人页

关注

展开全部

xlApp.Visible = True
 if msgbox("是否保存当前表",vbyesno,"提示")=vbyes
   xlBook.SaveAs (App.Path & "\" & "" & rstPartInfo("零件名称") & "" & datatime.tostring() & ".xls")
   Set xlBook = xlApp.Workbooks.Open("" & rstPartInfo("零件名称") & ".xls")
end if
    'xlBook.Close

    Set xlBook = Nothing
    Set xlSheet1 = Nothing
    Set xlApp = Nothing

本回答被提问者和网友采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起