AI提供，处理在文件夹中选定的文件的一道示例。

ning84 · 发表于 2024-8-30 07:22

本帖最后由 ning84 于 2024-8-30 07:23 编辑

[size=0.2]v文件夹中的选定照片,如何在VBA

在VBA中，你可以使用FileSystemObject来访问文件夹中的文件，并且可以使用SendKeys来模拟键盘操作，以选中图片。以下是一个简单的例子，它会遍历指定文件夹内的所有图片文件，并尝试使用Windows图片查看器打开它们。

Sub SelectPhotosInWindowsPhotoViewer()
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim photoApp As String

' 设置Windows图片查看器的可执行文件路径
photoApp = "C:\Program Files\Windows Photo Viewer\PhotoViewer.exe"

' 创建FileSystemObject并获取v文件夹
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("V:\") ' 修改为实际的文件夹路径

' 遍历文件夹中的文件
For Each file In folder.Files
      ' 检查文件是否为图片
      If LCase(fso.GetExtensionName(file.Name)) = "jpg" Or LCase(fso.GetExtensionName(file.Name)) = "png" Then
         ' 使用SendKeys发送键盘命令来选择图片

         ' 这里假设Windows图片查看器已经打开
         ' 注意：这种方法依赖于SendKeys，可能会受到键盘hook的影响
         SendKeys "~" ' SendKeys "~" 模拟 Enter 键，用于确定选择的图片
         Application.Wait (Now + TimeValue("0:00:01")) ' 等待1秒，确保SendKeys被处理
      End If
Next file
End Sub

请注意，SendKeys 方法依赖于用户界面当前的状态，并且容易受到其他程序中的键盘钩子的影响。此外，由于SendKeys发送的是全局按键，可能会影响到其他当前活动的应用程序。

此代码示例只是一个基础示例，并且假设所有图片都是JPEG或PNG格式。根据你的需求，你可能需要对文件类型的检查和处理进行更多的定制。

提示：AI自动生成，仅供参考

ning84 · 发表于 2024-8-30 07:56

希望得到的结果选定的文件

代码运行结果，不是目标需求结果。

Sub SelectPhotosInWindowsPhotoViewer()
Dim Fso As FileSystemObject
Dim Fso As Object
Dim folder As Object
Dim file As Scripting.file
Dim photoApp As String
' 设置Windows图片查看器的可执行文件路径
photoApp = "C:\Program Files\Windows Photo Viewer\PhotoViewer.exe"
' 创建FileSystemObject并获取v文件夹
Set Fso = CreateObject("Scripting.FileSystemObject")
Set folder = Fso.GetFolder("f:\JPG") ' 修改为实际的文件夹路径
' 遍历文件夹中的文件
For Each file In folder.Files
' 检查文件是否为图片
If LCase(Fso.GetExtensionName(file.Name)) = "jpg" Then
' 使用SendKeys发送键盘命令来选择图片
' 这里假设Windows图片查看器已经打开
' 注意：这种方法依赖于SendKeys，可能会受到键盘hook的影响
SendKeys "~"
' SendKeys "~" 模拟 Enter 键，用于确定选择的图片
Application.Wait (Now + TimeValue("0:00:01")) ' 等待1秒，确保SendKeys被处理
With file
Debug.Print .Name, .DateLastModified, .DateCreated, .DateLastAccessed
End With
End If
Next file
End Sub

复制代码

limonet · 发表于 2024-8-30 09:39

你把与人沟通的过程说一篇，要实现什么效果？

ykcbf1100 · 发表于 2024-8-30 09:57

应该是代码打开指定文件夹，手动选择多个图片文件。

ning84 · 发表于 2024-8-31 15:40

学习SelectedItems笔记

Sub ReadPhotoInfo()
Dim Rr, Rrr, Kk, Kkk, Str, sItem
Rr = 10
Rrr = Rr
Dim Sht As Worksheet
Dim Rng As Range, oRng As Range
Set Rng = Selection
Set Sht = Rng.Parent
With Sht
.Cells.Clear
.Cells.Font.Size = 9
End With
Dim Fso As Scripting.FileSystemObject
Set Fso = New Scripting.FileSystemObject
Dim fDia As FileDialog
Dim oFiles As Files, oFile As File
Set fDia = Application.FileDialog(msoFileDialogFilePicker)
With fDia
.Title = ""
.AllowMultiSelect = True
.InitialFileName = "F:"
.Show
For Each sItem In .SelectedItems
Set oFile = Fso.GetFile(sItem)
If Fso.GetExtensionName(oFile.Path) = "jpg" Then
''Debug.Print oFile.Name, oFile.Path
With oFile
If InStr(.Name, "Screen") > 0 Then
Sht.Cells(Rrr + Kkk, "Aa") = .Path
Kkk = Kkk + 1
Else
Sht.Cells(Rr + Kk, "A") = .DateLastModified
Sht.Cells(Rr + Kk, "B") = .Name
Sht.Cells(Rr + Kk, "C") = Round(.Size / 1024 ^ 2, 1)
Sht.Cells(Rr + Kk, "C").Select
Sht.Cells(Rr + Kk, "C").Hyperlinks.Add Anchor:=Selection, Address:=oFile.Path, TextToDisplay:=oFile.Path
Sht.Cells(Rr + Kk, "Z") = .Path
With Sht
HhMmSs .Cells(Rr, "A"), .Cells(Rr + Kk, "A")
End With
Kk = Kk + 1
End If
End With
End If
Next sItem
End With
With Sht
Set oRng = .Cells(Rr, "C").Resize(Kk, 1)
oRng.Select
.Cells(1, "F") = "=" & oRng.Address
.Cells(1, "A") = "=""Count:"" & " & " count(" & oRng.Address & ")"
.Cells(2, "A") = "=""Sum:"" & " & " sum(" & oRng.Address & ")"
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册