[已解决]黑色加粗的是什么意思呀，运行 后怎么在记事本中出现了。；、请大家帮忙！

香满园

Sub SKeys()
Dim dReturnValue As Double
dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
AppActivate dReturnValue
Application.SendKeys "Copy Data.xlsx c:\", True
Application.SendKeys "~", True
Application.SendKeys "%FABATCH%S", True
End Sub

上面代码黑色加粗的是什么意思呀，运行 后怎么在记事本中出现了。；、请大家帮忙！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-1 15:17

1. Sub SKeys()
   
2.     Dim dReturnValue As Double
   
3.     '通过SHELL调用，如果成功则返回任务的ID
   
4.     dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
   
5.    
   
6.     '激活应用程序的窗口，
   
7.     AppActivate dReturnValue
   
8.     '在记事本 文本框中输入Copy Data.xlsx c:\，参数TRUE等到记事本处理完才近回到过程
   
9.     Application.SendKeys "Copy Data.xlsx c:", True
   
10.     '在记事本 文本框中输入回车键，参数TRUE等到记事本处理完才近回到过程
    
11.     Application.SendKeys "~", True
    
12.     '在记事本中 按ALT+F, A,BATCH,alt+s
    
13.     '保存时经常有按键处理不到。
    
14.     Application.SendKeys "%FABATCH%S", True
    
15.    
    
16. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

激活应用程序。
发送按键。

hwc2ycy

1. Sub SKeys()
   
2.     Dim dReturnValue As Double
   
3.     '通过SHELL调用，如果成功则返回任务的ID
   
4.     dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
   
5.    
   
6.     '激活应用程序的窗口，
   
7.     AppActivate dReturnValue
   
8.     '在记事本 文本框中输入Copy Data.xlsx c:\，参数TRUE等到记事本处理完才近回到过程
   
9.     Application.SendKeys "Copy Data.xlsx c:", True
   
10.     '在记事本 文本框中输入回车键，参数TRUE等到记事本处理完才近回到过程
    
11.     Application.SendKeys "~", True
    
12.     '在记事本中 按ALT+F, A,BATCH,alt+s
    
13.     '保存时经常有按键处理不到。
    
14.     Application.SendKeys "%FABATCH%S", True
    
15.    
    
16. End Sub

复制代码

hwc2ycy

打开记事本，CTRL+F,A，你看看是不是打开的文件另存为对话框。

香满园

hwc2ycy 发表于 2013-6-1 15:23
打开记事本，CTRL+F,A，你看看是不是打开的文件另存为对话框。

运行后，记事本中怎么出现这样的中文“C精密度D医药”，而不是“Copy Data.xlsx c:\"呢

hwc2ycy

你把默认的输入法改为英文试吧。