关于VBS的问题，不能SayString变量，只能MessageBox出变量

Posted 2023-04-12

比如这段
VBS Dim Y,Mon,D,W,h,m,s,SJ
VBS Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday）h=Hour(time):m=Minute(time):s=Second(time)

VBS SJ=Y&"年"&Mon&"月"&D&"号 "&"星期"&W&""&h&"点"&m&"分"&s&"秒"

MessageBox("当前系统时间为："&SJ)

如何将得到的变量 SJ 输出啊？

看了你的代码，从 vbs、SayString上，据我的猜测，你的这段代码貌似是 按键精灵的代码。

SayString命令的作用是：在当前窗口输入文字，要想完成这个功能，有个限制，那就是：

1、当前窗口是激活的。

2、当前窗口需要输入文字的地方，有输入焦点。（至于什么是输入焦点，很简单，你在IE浏览器中要手动输入网址，需要点击那个地址栏，然后光标会移动到那并闪烁提示输入状态的那种）

此外，对于有些游戏而言不一定就能用。 参考技术A 再定义两个变量a="当前系统时间为：",b="当前系统时间为："&SJ
MessageBox(b) 参考技术B 在VBS中用msgbox("当前系统时间为："&SJ)

关于vbs与sql的联接问题

我有一个SQL数据库。服务器名为：SERVER，数据库名为mmis,有一个表merch有二个字段AA和BB，我怎样才能用VBA 把它导入Excel 工作表中，请说的详细些.如:怎样使用ADO引用,怎样联接数库?

参考技术A 我知道本地连接，远程连接的话自己试试
Dim con As New ADODB.Connection
Dim rst_gcl As New ADODB.Recordset
Dim rst_qm As New ADODB.Recordset
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 数据库路径 & ";Persist Security Info=False"
con.Open
set rst_gcl=con.execute("select * from merch")
sheet1.range("A1")=rst_gcl.fields("AA")
sheet1.cells(2,1)=rst_gcl.fields("BB")