Excel VBA问题,Application.SendKeys问题
期望实现功能为,弹出文件选择对话框,并设默认目录为 C:\TEST1,默认文件名为 TEST.TXT。
代码如下:
ChDrive "C"
ChDir "C:\TEST1"
Application.SendKeys "TEST.TXT"
fileToOpen = Application.GetOpenFilename("All Files (*.*), *.*", , "Select File")
但是以上代码有个问题,就是SendKeys受当前输入法影响,如果当前输入法的为全角,则SendKeys送出的字符串变成了 "TEST。TXT",点号变成了句号,有些输入法还可能把TEST作为拼音,输出居然是汉字!
请问如何解决?我想过两种方法,一是屏蔽输入法,但只有控件有IMEMode属性,Sheet和Application都没有此属性用于屏蔽输入法,不知如何实现。二是不使用Application.GetOpenFilename来显示选取文件对话框,但不知有什么其他方法可以实现?(前提:必须保证在EXCEL 97下能运行,FileDialoge和Microsoft Common File Dialoge均不受EXCEL 97支持,所以才使用此方法)
有解决办法的请跟贴,谢了