excelvba中如何獲得圖片中的數據

Ⅰ 怎麼用vba抓取excel表格中的數據

你的問題太大了，因為VBA在excel就是抓數據、計算數據的，要看你具體怎麼抓。比如抓取特定欄位數據，應該用到三個字元串函數：LEFT、RIGHT、MID
1、LEFT函數：
用法：LEFT（要提取字元所在單元格,從左側開始提取的個數)
例如：=LEFT(A1,2) 意思是從A1單元格提取前兩個字元。
2、RIGHT函數：
用法：RIGHT(要提取字元所在單元格,從右側開始提取的個數）
例如：=RIGHT(A1,2) 意思是從A1單元格提取最後兩個字元。
3、MID函數：
用法：MID(要提取字元所在單元格,開始位置，提取個數）
例如：=MID(A1,2,2) 意思是從A1單元格提的第二個單元格開始，提取兩個字元，也就提取A1單元格第2個和第3個字元。
註：用MID函數，也可以替代前兩個函數，比如：=MID(A1,1,2)與=LEFT(A1,2)的結果是一樣的，再比如：=MID(A1,LEN(A1)-2+1,2)與=RIGHT(A1,2)的結果是一樣的只是這里用到LEN函數，其作用是取得單元格字元串的長度。
4、提取後的字元合並：
字元合並要用到連接符號：&
比如：=LEFT(A1,2)&RIGHT(A1,2) 意思是把A1單元格的前兩個和最後兩個字元，提取出來組成一個新的字元。

Ⅱ excel中如何用vba導出對應圖片文件

activesheet.pictures.insert
"d:\backup\桌面\圖標\japan.png"
上面的一句話是在當前活動的工作表裡面插入圖片的代碼:
注意後面的圖片路徑不能寫錯且要是完整的路徑,且路徑要用雙引號括起來
如果要在其它工作表插只需要把前面的
activesheet換成工表表的名稱
如sheet1.pictures.insert("要插入圖片的路徑和名稱")

Ⅲ 會excel vba的朋友進——請問圖中數據如何自動匯總

Submyfun()
Application.ScreenUpdating=False'不更新屏幕，在數據量比較大的時候，效率提升
n=Range("zz1").End(xlToLeft).Column'取得第一行最後有數據的列號
k=2
Fori=1Ton
IfCells(2,i)<>""Then'取列數據
m=Range(Chr(i+64)&"65535").End(xlUp).Row-1'取得數據列的行數
Range(Cells(k,n+1),Cells(k+m-1,n+1)).Value=Cells(1,i)'在n+1列填入年份
Range(Cells(k,n+2),Cells(k+m-1,n+2)).Value=Range(Cells(2,i),Cells(m+1,i)).Value'在n+2列填入數據
k=k+m'計算下一列數據填入的位置
EndIf
Next
Application.ScreenUpdating=True
EndSub

Ⅳ 如何利用vba把一個文件目錄下的數字圖片插入到Excel的某一個單元格裡面 數字圖片，比如圖片

照片和文件的相對路徑不能變，也就是說照片這個文件夾要和文件在一起。
點提取圖片後，如果圖片已經存在，則將圖片移動到照片單元格。好像也沒必要。。。
主要是最長那句代碼。

Sub 提取照片()
Dim Rng As Range, S As String
On Error Resume Next
S = Trim(Range("E3")) '檔案號單元格
Set Rng = Range("J4") '照片單元格
Path = ThisWorkbook.Path & "\照片\" '圖片路徑

With ActiveSheet.Shapes(S) '移動到指定位置
.Left = Rng.Left + 10
.Top = Rng.Top + 5
End With

If Err Then '如果出錯 說明沒有添加圖片，執行添加
ActiveSheet.Shapes.AddPicture(Path & S & ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = S
Err.Clear
End If
End Sub

Ⅳ excel如何使用vba讀取單元格中的圖片,顯示到窗體中

可以用imagelist控制項，把圖片都放上去
然後直接調用就可以了，勸你就加點分吸引點人來做吧！

Ⅵ 如何利用excel vba提取指定條件的數據

SubMacro1()
dimyearsasstring
years="2000"
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.cells.AutoFilterField:=4,Criteria1:=years
EndSub

以上代碼定於years變數，可根據設置年份

然後選擇第一行，生成高級篩選，篩選條件是第四列，篩選內容是變數years

Ⅶ Excel 怎樣通過VBA獲取圖片文件的像素屬性

Excel 怎樣通過VBA獲取圖片文件的像素屬性

如下圖代碼所示：

Ⅷ EXCEL VBA 如何獲取當前點擊的圖片的名稱

n個圖片，都指定同一個宏，在這宏里加入一句
picName=application.caller
msgbox picName

Ⅸ 如何用EXCEL VBA批量提取JPG文件日期時間信息到表格中

使用這個函數吧，可以得到文件的 創建時間 或 最後修改時間：
-------------------------
Function iFileDate(iPh, n)
' 參數說明：
' iph 文件路徑。
' n 時間類型。 1 為 創建時間；2 為 最後修改時間
If Dir(iPh) = "" Then Exit Function
Dim fs: Set fs = CreateObject("Scripting.FileSystemObject")
Dim f: Set f = fs.GetFile(iPh)
If n = 1 Then iFileDate = f.DateCreated
If n = 2 Then iFileDate = f.DateLastModified
End Function
---------------------

具體使用方法舉例：
---------------
Sub iTest()
Dim iPh, iDate1, iDate2
iPh = "G:\D Hi\VBA 文件操作\a.xls"
If Dir(iPh) = "" Then
MsgBox "下面的文件不存在：" & vbCrLf & iPh, vbCritical
Exit Sub
End If
iDate1 = "創建時間:" & vbTab & iFileDate(iPh, 1)
iDate2 = "最後修改時間:" & vbTab & iFileDate(iPh, 2)
MsgBox iPh & vbCrLf & iDate1 & vbCrLf & iDate2
End Sub