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