質問編集履歴
2
試したことを反映し、現状のコードに修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -45,6 +45,8 @@
|
|
|
45
45
|
lParam As Any) As LongPtr
|
|
46
46
|
|
|
47
47
|
|
|
48
|
+
|
|
49
|
+
Public Const VK_RETURN As Integer = &HD
|
|
48
50
|
|
|
49
51
|
|
|
50
52
|
|
|
@@ -110,9 +112,25 @@
|
|
|
110
112
|
|
|
111
113
|
|
|
112
114
|
|
|
115
|
+
SetForegroundWindow hInputBox
|
|
116
|
+
|
|
113
117
|
'アドレスバーに入力場所を入れる
|
|
114
118
|
|
|
119
|
+
Call SendMessage(hInputBox, &H6, 1, 0&) 'ToolbarWindow32をアクティブにする
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
Call SendMessage(hInputBox, &HF5, 0, 0&) 'ボタンをクリックする（アドレス入力可能状態にする）
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
115
|
-
Call SendMessage(hInputBox, &HC, 0, ByVal "C:\Users\
|
|
127
|
+
Call SendMessage(hInputBox, &HC, 0, ByVal "C:\Users\uehara\Desktop") 'アドレス入力
|
|
128
|
+
|
|
129
|
+
|
|
130
|
+
|
|
131
|
+
Call SendMessage(hInputBox, &HD, 0, 0&) ' エンターを押す
|
|
132
|
+
|
|
133
|
+
|
|
116
134
|
|
|
117
135
|
|
|
118
136
|
|
|
@@ -156,6 +174,12 @@
|
|
|
156
174
|
|
|
157
175
|
また、アドレス部分のハンドルに対して、SendMessageを利用してクリックをする（その部分を有効かできると考えて）ということも試しましたが、そちらも不発に終わりました。
|
|
158
176
|
|
|
177
|
+
（2021/10/01更新）
|
|
178
|
+
|
|
179
|
+
各種ご提案頂いた方法試した結果、ウィンドウハンドル自体は間違っていないようなので、アドレスバーへの指示式（指示方法？）が間違っているように思われます。
|
|
180
|
+
|
|
181
|
+
|
|
182
|
+
|
|
159
183
|
### 利用環境
|
|
160
184
|
|
|
161
185
|
excel2019 32bit版
|
1
利用環境の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -155,3 +155,7 @@
|
|
|
155
155
|
該当のハンドルはこちらで間違いないとは思います。
|
|
156
156
|
|
|
157
157
|
また、アドレス部分のハンドルに対して、SendMessageを利用してクリックをする（その部分を有効かできると考えて）ということも試しましたが、そちらも不発に終わりました。
|
|
158
|
+
|
|
159
|
+
### 利用環境
|
|
160
|
+
|
|
161
|
+
excel2019 32bit版
|