用户输入以更新宏

Question

我想创建一个宏来访问站点并复制 table。问题是，我希望用户能够通过提示 window.

选择哪一个

拉取信息代码如下：

Source = Web.Page(Web.Contents(""xxx.xxx.xxx.xxx/aaaaa/bbbb/user_list.php? 
month=202001&user_id=999&group_id=1""))

效果很好。

我希望用户更新的部分是月份部分。

Dim Response As String
Response = InputBox("input date*YYYYMM*")

并尝试在月后添加 Response=

Source = Web.Page(Web.Contents(""xxx.xxx.xxx.xxx/aaaaa/bbbb/user.php? 
month=""Response""&user_id=999&group_id=1""))

Run-time error'6':Overflow

我知道宏不理解我的请求，但希望有人能够告诉我我错过了什么。

Answer 1

我认为它应该是这样的：

Source = Web.Page(Web.Contents("xxx.xxx.xxx.xxx/aaaaa/bbbb/user.php?month=" & Response & "&user_id=999&group_id=1"))

您需要使用 & 符号连接字符串。

FullString = "string a" & "string b" & variable1

User input to update macro