读书人

VB字符拼接的有关问题 指定路径存EXCE

发布时间: 2012-03-19 22:03:05 作者: rapoo

VB字符拼接的问题 指定路径存EXCEL的问题
我在窗体上添加了一个 Combo3 控件,然后添加了一些代码,使得我每次选择一个路径之后,就会在Combo3.text里面显示,如:E:\ISEE\CalMask


然后我程序建立了一个EXCEL 表格,开始往里面写数据,我想让它写完之后,单击一个按钮,EXCEL 就会以指定的名字保存在我选择的路里面,例如我选择了文件夹:CalMask 那EXCEL就会自动保存到CalMask 文件夹内。我应该如何实现?


我原本是这么想的:我的保存名字为:日期+RECORD
然后我想拼接起来,称为一个路径:E:\ISEE\CalMask\日期RECORD.xls

Dim fileAddr(4) As String
mydate = Format$(Now, "YY-MM-DD HH:MM") 'fileAddr(0) = Combo3.Text
fileAddr(1) = "\"
fileAddr(2) = mydate
fileAddr(3) = "RECORD.xls"
xlsheet.SaveAs (fileAddr) '按指定文件名存盘

结果报错类型不批配。

那么我应该如何实现?

[解决办法]
能用一个字符串数组给一个文件命名吗?以下测试报错,类型不匹配。vb6
Private Sub Form_Load()

VB code
Dim fileAddr(4) As String    fileAddr(0) = "d:\"    fileAddr(1) = "sdlfj"    fileAddr(2) = "d"    fileAddr(3) = "sdlfj.txt"    Open fileAddr For Output As #1        Print #1, "This is a test"    Close #1End Sub
[解决办法]
VB code
Dim fileAddr(4) As Stringmydate = Format$(Now, "YYMMDDHHMM")fileAddr(0) = Combo3.TextfileAddr(1) = "\"fileAddr(2) = mydatefileAddr(3) = "RECORD.xls"xlsheet.SaveAs (Join(fileAddr, "")) '按指定文件名存盘 

读书人网 >VB

热点推荐