❶ 如何用VBA實現操作網頁上傳文件
VBA訪問FTP進行文件傳輸的，網路上見到3種方式，用過2種。
一、VBA+DOS批處理的方式，本質上還是通過DOS來進行，有點麻煩，而且運行中會彈出CMD窗口，現在已經不用這種方法了。
VBA寫DOS：
Open getfd For Output As #1 Print #1, "setlocal EnableDelayedExpansion" Print #1, "(" Print #1, "echo;open xx.xx.xx.xx" Print #1, "echo;user" Print #1, "echo;pwd" Print #1, "echo;cd """; ftpfdx8; """" Print #1, "echo;prompt" Print #1, "echo;dir" Print #1, "echo;bye" Print #1, ") > """; fdx8; """" Print #1, Print #1, "ftp -v -i -s:"""; fdx8; """ | find ""ftpgroup"" > """; folderx8; """" Print #1,
VBA運行它：
1
Shell ("ftp -v -i -s:" & ftpfile)
二、VBA調用API，具體是basp21.dll
詳見，說明很詳細，有實例
示例如下，比較簡單易懂，其中getfile為下載，上傳使用putfile就好了。
❷ 用vba如何批量插入圖片,公式詳解
您好，根據您的需求，批量插入圖片的參考代碼如下：
OptionExplicit
PublicSub批量插入圖片()
DimrngPictureAsRange
DimlngRowAsLong
DimintColAsInteger
WithActiveSheet
ForlngRow=1To16Step8
ForintCol=1To12Step3
SetrngPicture=.Cells(lngRow+1,intCol+2)
rngPicture.Select
With.Pictures.Insert("E:坑圖"&rngPicture.Value&".jpg").ShapeRange
.Height=70.5
.Width=105
EndWith
Next
Next
EndWith
SetrngPicture=Nothing
EndSub
PS：具體使用時請自行修改演示代碼中的循環起止行、起止列和步進值。如果圖片插入到單元格後出現偏移，請設置 Picture 的 Left 屬性和 Top 屬性。
另外，也可以設置圖片在單元格內水平居中（比單元格大的圖片暫不考慮），參考代碼如下：
OptionExplicit
PublicSub批量插入圖片水平居中()
DimrngPictureAsRange
DimlngRowAsLong
DimintColAsInteger
WithActiveSheet
ForlngRow=1To16Step8
ForintCol=1To12Step3
SetrngPicture=.Cells(lngRow+1,intCol+2)
rngPicture.Select
With.Pictures.Insert("E:坑圖"&rngPicture.Value&".jpg").ShapeRange
.Left=rngPicture.Left+(rngPicture.Width-.Width)/2
.Top=rngPicture.Top+(rngPicture.Height-.Height)/2
EndWith
Next
Next
EndWith
SetrngPicture=Nothing
EndSub
❸ excel VBA 我想要在一個單元格中做一個上傳文件的按鈕，單擊該按鈕彈出圖片選擇器
可以實現的。望採納
❹ 2007版Excel怎樣用VBA代碼插入圖片求代碼
1、打開Excel，准備好表格。
❺ vba 怎麼自動插入多個文件夾中的圖片
1.打開Excel文件，錄入數據。
❻ 怎麼用VBA批量發圖片
試試下面的代碼：
Sub批量插入圖片()
DimwjAsString
DimrngAsRange
Sheets("SHeet1").Select'選中要插入圖片的工作表
x=[a65536].End(xlUp).Row'取得最後一行的行號
Fori=2Tox
na=Cells(i,2)'從第二列（即B列）得到圖片名稱，並以此名查找圖片
wj="e:照片"&""&na&".jpg"'圖片文件存儲的路徑與格式（.jpg）
IfDir(wj)<>""Then
Cells(i,4).Select'圖片需要插入到第四列（即d列）
ActiveSheet.Pictures.Insert(wj).Select
Setrng=Cells(i,4)'根據單元格的大小調整圖片
WithSelection
.Top=rng.Top+1
.Left=rng.Left+1
.Width=rng.Width-1
.Height=rng.Height-1
EndWith
EndIf
Next
MsgBox"圖片插入完畢"
EndSub
❼ VBA如何實現插入圖片
可以寫，要根據你實際的來，比如 文件夾路徑