| |
いつも御世話になっております。
一点疑問に思っている部分があります。
ご存知の方はご教授願います。
Access2000にてExcelVBAでの｢GetOpenFilename｣と同様の効果のメソッドを調べたのですが、見つからなかったので下記の方法をとりました。
しかし、「ChDrive」と「ChDir」が効果を発揮しません。
使い方か間違えているのでしょうか？
それともAccessでは効果はないのでしょうか？
Private Sub GetOpen()
Dim AP As Object
Dim Path As Variant
Set AP = CreateObject("Excel.Application")
AP.Visible = True
AP.UserControl = True
ChDrive "C" 'この部分の効果が発揮されない
ChDir "C:\Access\data" '同上
Path = AP.Application.GetOpenFilename("テキストファイル(*.txt),*.txt", 1)
AP.Application.Quit
Set AP = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
