phpvba

① 如何用VBA將數據POST到php網頁

如果語句寫：
http.send "T1=XXX&T2=XXXXX&T3=XXXXXX"
那麼PHP收到的T1值就是XXX，如果XXX是VBA的變數，那麼語句應該這么寫：
http.send "T1="& XXX &"&T2=XXXXX&T3=XXXXXX"
注意&符號，原則我們send後面的內容，必須是符合POST的格式，可以把數據放入變數裡面，調試一下，例如：
data = "T1="& XXX &"&T2=XXXXX&T3=XXXXXX"
debug.print data
http.send data

另外，PHP端游州陵如果沒有通過測試，也需跡桐要print_r($_POST)監控，神戚看看參數提交是否合適。

② 如何用VBA將數據POST到php網頁

VBA可以POST和GET網行或頁，例子代碼如下：

OptionExplicit

Subxxx()
Dimhttp
Sethttp=CreateObject("Microsoft.XMLHTTP")
http.Open"POST","http://網址/PHP文件名模帶枝.PHP",False
http.send""
旦敏Ifhttp.Status=200Then
[a1]=http.responseText
MsgBox"成功。"
Else
MsgBox"調用失敗，錯誤代碼："&http.Status
EndIf
EndSub

③ PHP高手進，關於導出EXCEL（附VBA）問題

excel裡面有宏安全性，你到excel的設置里，把宏安全性賀冊和信任中心裡姿拍陪相關跡蠢的選項全disable了。就能work了。

④ 用php,perl,vba等語言循環讀取某個路徑下多個CSV文件生成excel文件，按文件名建sheet.

用excel vba實現的，以d:\work為目錄，建了幾個csv文件，然後在一個excel中運行如下代碼即可，測試可行，不明白的話hi我就行了
對了我用的是07版，如果你用03，就把代碼里XFD1048576改小點就行了
Sub 癢沖亂山癢養羊()
Dim myPath$, myFile$, AK As Workbook, OAK As Workbook
Set OAK = ActiveWorkbook
Application.ScreenUpdating = False '凍結屏幕，以防屏幕抖動
myPath = "D:\work\" '把文件路徑定義給變數
myFile = Dir(myPath & "*.csv") '依次找尋指定路徑中的*.csv文件
i = 1
Do While myFile <> "" '當指定路徑中有文件時進行循環
If myFile <>散中 ThisWorkbook.Name Then
Sheets.Add After:=OAK.Sheets(Sheets.Count)
OAK.ActiveSheet.Name = myFile
Set AK = Workbooks.Open(myPath & myFile) '打開符合要求的文件
AK.ActiveSheet.Range("A1:XFD1048576").Copy OAK.Sheets(myFile).Range("A1:XFD1048576")
AK.Close False
i = i + 1
End If
myFile = Dir '找尋下一個*.csv文件
Loop
Application.ScreenUpdating = True '凍陪野結屏幕,此類語句一般成對使用
End Sub