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