问题[vba]

是否可以将PDF收到的GET请求保存在 中VBA？我正在提出这个请求

http.Open "GET", url, False
http.setRequestHeader "user-key", token
http.Send
                            
Response = http.responseText
Debug.Print Response

返回什么：

2 0 obj
<<
/ProcSet [/PDF /Text /ImageB /ImageC /ImageI]
/Font <<
>>
/XObject <<
/TPL0 15 0 R
/TPL1 20 0 R
/TPL2 23 0 R
/TPL3 26 0 R
/TPL4 29 0 R
/TPL5 32 0 R
>>
>>
endobj
158 0 obj
<<
/Producer (FPDF 1.83)
/CreationDate (D:20250120164426)
>>
endobj
159 0 obj
<<
/Type /Catalog
/Pages 1 0 R
>>
endobj
xref
0 160
0000000000 65535 f 
0000001415 00000 n 
0000331951 00000 n 
0000000009 00000 n 
0000000087 00000 n 
0000000217 00000 n 
0000000325 00000 n 

我正在尝试将数据保存到PDF，但是

如何在打开窗体时为 VBA 全局变量赋值，然后在单击按钮时更改其值？我知道如何做问题的第二部分。先感谢您。

更详细地，有一个计数器，其值必须在按钮按下过程之外确定。

Public counter As Long
Set (counter, 1) ' counter=1

...
Public Sub ButtonAdd_Click()
counter = counter+1
End Sub

Public Sub ButtonSave_Click()
Workbooks.Add
FiNum = 0
FiName = "C:\Users\svv71\Desktop\Test\Test" & FiNum & ".xlsx"
ActiveWorkbook.SaveAs Filename:=FiName
FiNum = FiNum + 1

ActiveWorkbook.Close
End Sub

'Кнопка добавить данные
Public Sub ButtonAdd_Click()
 Dim i, n, k As Integer

 n = Range("A2").CurrentRegion.Rows.Count + 1
 k = n + 3
 For i = 1 To 4
    Cells(n, i + 1).Value = " & TextBox & i & "   
    Next
'Без цикла это работало так
        'Cells(n, 1) = TextBox1
        'Cells(n, 2) = TextBox2
        'Cells(n, 3) = TextBox3
        'Cells(n, 4) = TextBox4
        
End Sub

要通过命令行显示消息，您可以使用 MsgBox 函数创建一个 .vbs 文件

(echo MsgBox "Line 1" ^& vbCrLf ^& "Line 2", 262192, "Title") > popup.vbs

常数从哪里来262192？您会看到一个带有声音的警告图标和一个“确定”按钮，但官方帮助说您可以只使用 vbExclamation - 48。那么它来自哪里262192？