Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
dlg.FileName=tables("表A").current("报价单号") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\报价单.xls")
Book.Build() '生成细节区
Book.Save(dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
加好友 
发短信
Post By：2013/12/7 11:11:00 [显示全部帖子]
