你就不能这样保存么? ↓
创新互联主营济阳网站建设的网络公司,主营网站建设方案,APP应用开发,济阳h5成都小程序开发搭建,济阳网站营销推广欢迎济阳等地区企业咨询
Static SaveNumber as Integer
SaveNumber += 1
Dim SavePath as String = "C:\ytakqi" SaveNumber ".png"
bit.Save(SavePath)
改成下面的就可以
Dim exl As Object '定义Excel对象
exl = CreateObject("Excel.Application") '创建Excel对象
exl.visible = True
Dim wk As Object = exl.Workbooks.add()
wk.sheets(1).cells(1, 1).value = "Hello"
wk.SaveAs("c:\111.xls")
添加一个SaveFileDialog,在保存excle选择时候添加
SaveFileDialog1.show()
用法跟OpenFileDialog相同