- 博客(2)
- 收藏
- 关注
原创 VBA中Sendkeys的用法
Sub test()Shell "C:\ITACC\FISFrameworkSystem\FISFramworkLiveUpdate.exe"firsttime = TimerDo Until Timer - firsttime > 7DoEventsLoopSendKeys "+{tab}" SendKeys "{tab}"SendKeys "214"SendKeys "{tab}"Sen..
2018-04-16 09:31:30 19876 1
原创 VBA连接SQL数据库的方法
Dim cnn As ObjectDim rs As ObjectSet rs = CreateObject("ADODB.RecordSet")Set cnn = CreateObject("ADODB.Connection")Dim strSQL As StringDim cnnStr As String' Set cnn = New ADODB.Connection ﹚Microsoft...
2018-04-16 09:18:38 7021
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人