VB字符拼接的问题 指定路径存EXCEL的问题 本帖最后由 liangchaoxi 于 2012-03-08 17:46:32 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 xlsheet.SaveAs (fileAddr(0) & fileAddr(1) & fileAddr(2) & fileAddr(3)) 文件名为字符串,你用了数组…… Dim fileAddr(4) As Stringmydate = Format$(Now, "YY-MM-DD HH:MM") fileAddr(0) = Combo3.TextfileAddr(1) = "\"fileAddr(2) = mydatefileAddr(3) = "RECORD.xls"xlsheet.SaveAs (fileAddr) '按指定文件名存盘 实际上我的错的地方应该是这里:mydate = Format$(Now, "YY-MM-DD HH:MM")文件名不能有:“:” 能用一个字符串数组给一个文件命名吗?以下测试报错,类型不匹配。vb6Private Sub Form_Load()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 Dim fileAddr(4) As Stringmydate = Format$(Now, "YYMMDDHHMM")fileAddr(0) = Combo3.TextfileAddr(1) = "\"fileAddr(2) = mydatefileAddr(3) = "RECORD.xls"xlsheet.SaveAs (Join(fileAddr, "")) '按指定文件名存盘 不是说了吗?文件名要字符串,而你的那个是数组。要用jion连接起来才行。至于冒号,我无视了…… 我晕了,数组里的内容是 字符串呀,拼起来本质就是字符串。 C里面都是这么干的,看来VB太傻了 日期和星期的代码 再问"dll在vb开发环境里可以运行,编译成exe后怎么就不运行了" VB打包及安装问题,在线急等!高分求助!! 关于数据库的问题 我想看我以前的一个程序,遇到了困难,进来帮忙就有分相送。 坦克快乐报 第5期 如何赋值给模块中申明的TEXTBOX控件变量 请问active dll工程中的窗体如何才能作为主工程中MDI窗体的子窗体? 如何通过修改注册表隐藏驱动器? 哪里有vb高级编程的电子书下载(超星的书除外) vb 路径问题? vb
mydate = Format$(Now, "YY-MM-DD HH:MM")
fileAddr(0) = Combo3.Text
fileAddr(1) = "\"
fileAddr(2) = mydate
fileAddr(3) = "RECORD.xls"
xlsheet.SaveAs (fileAddr) '按指定文件名存盘
实际上我的错的地方应该是这里:mydate = Format$(Now, "YY-MM-DD HH:MM")
文件名不能有:“:”
Private Sub Form_Load()
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 #1
End Sub
Dim fileAddr(4) As String
mydate = Format$(Now, "YYMMDDHHMM")
fileAddr(0) = Combo3.Text
fileAddr(1) = "\"
fileAddr(2) = mydate
fileAddr(3) = "RECORD.xls"
xlsheet.SaveAs (Join(fileAddr, "")) '按指定文件名存盘