VBA，能直接调用手机里的图片吗?

ning84

下面程序只能调用计算机硬盘的JPG文件，不能调用手机里的图片。

1. Sub lll()
   
2.    Dim Sht As Worksheet
   
3.    Dim Rng As Range
   
4.         Set Sht = Sheet1
   
5.         ''Debug.Print Sht.Cells.Rows.Count
   
6.         Set Rng = Sht.Range("B1:AZ65536")
   
7.         Rng.Clear
   
8.         Sht.Cells.Font.Size = 9
   
9.         Rr = Sht.Range("A6566").End(xlUp).Row
   
10.         Rr = 5
    
11.         Set Rng = Sht.Cells(Rr, 1)
    
12.         TraverserJPG Rng, ThisWorkbook.Path ' & "\JPG"
    
13. End Sub
    
14. 
    
15. Function TraverserJPG(Rng As Range, Path)
    
16.    Dim xlWk As Workbook
    
17.    Dim xlSht As Worksheet
    
18.        'Set xlWk = ConnectWk("F:\日出日落时间\中国东西南北城市.xlsm")
    
19.       
    
20. 
    
21.     Dim Sht As Worksheet
    
22.     Dim Fso As Scripting.FileSystemObject
    
23.     Dim oFile As File, oFilesAs As Files
    
24.     Dim oFolder As Folder
    
25.     Dim Img As WIA.ImageFile
    
26.     Dim oDate As Date
    
27.     Dim Rr, Cc
    
28.     Dim Str
    
29.         Set Img = New WIA.ImageFile
    
30.         Set Sht = Rng.Parent
    
31.         'Set xlSht = xlWk.Worksheets("珠海") 'Sht.Cells(Rng.Row, 1))
    
32.         Rr = 10 'Rng.Row + 2
    
33.         
    
34.         Set Fso = New Scripting.FileSystemObject
    
35.         'Debug.Print Path
    
36.         Set oFolder = Fso.GetFolder(Path)
    
37.         ''
    
38.         For Each oFile In oFolder.Files
    
39.             Cc = 2
    
40.             'If InStr(oFile.Type, "JPEG") > 0 Then
    
41.             'If InStr(oFile.Type, "JPG") > 0 Then
    
42.             If InStr(oFile.Name, "IMG") > 0 Then
    
43.                
    
44.                With Sht
    
45.                    Img.LoadFile oFile.Path
    
46.                    '.Cells(Rr, Cc + 1) = oFile.Name
    
47.                    'Debug.Print oFile.Name, oFile.ParentFolder.Name, oFile.ParentFolder.ShortPath
    
48.                    .Cells(Rr, Cc + 9) = oFile.DateLastModified
    
49.                    'Str = oFile.DateLastModified
    
50.                    oDate = .Cells(Rr, Cc + 9)
    
51.                    .Cells(Rr, Cc + 15) = Format(oDate, "yyyy年m月d日 ")
    
52.                    Str = Format(oDate, "[$-C04]dddd mm dd,yyyy ;@") & _
    
53.                          Format(oDate, "hh:mm:ss")
    
54.                    Str = Format(oDate, "[$-3409]dddd, mmmm dd, yyyy, ;@ ")
    
55.                    Str = Str & Format(oDate, "[$-409]h:mm:ss AM/PM;@")
    
56.                    .Cells(Rr, Cc + 1) = Str
    
57.                    Str = Format(oDate, "yyyy年m月d日 ") & _
    
58.                          Format(oDate, " [$-zh-CN]aaaa;@") & Format(oDate, " h时mm分ss秒 ;@") 'Format(oDate, "[$-409]AM/PM h:mm:ss;@")
    
59.                          'Format(oDate, " [$-zh-CN]aaaa;@") & Format(oDate, " [$-zh-CN]上午/下午h时mm分ss秒 ;@") 'Format(oDate, "[$-409]AM/PM h:mm:ss;@")
    
60.                    Cc = Cc + 1
    
61.                    .Cells(Rr, Cc + 1) = Str
    
62.                    .Cells(Rr, Cc + 2) = GetYLDate(oFile.DateLastModified)
    
63.                    .Cells(Rr, Cc + 6) = oFile.Name
    
64.                    .Cells(Rr, Cc + 3) = Format(Int(oFile.Size / 1024), "0,000")
    
65.                    .Cells(Rr, Cc + 7) = "" & oFile.ParentFolder.Name & ""
    
66.                    .Cells(Rr, Cc + 4) = Img.Width
    
67.                    .Cells(Rr, Cc + 5) = Img.Height
    
68.                    .Cells(Rr, Cc + 8) = oFile.Type
    
69.                    .Cells(Rr, Cc + 12) = oFile.Path
    
70.                    .Cells(Rr, Cc + 13) = Img.Width
    
71.                    .Cells(Rr, Cc + 14) = Img.Height
    
72.                
    
73.                End With
    
74.             End If
    
75.             Rr = Rr + 1
    
76.         Next oFile
    
77.         Set Rng = Sht.Cells(Rr + 2, 1)
    
78.         ''
    
79.         For Each oFolder In oFolder.SubFolders
    
80.              TraverserJPG Rng, oFolder.Path
    
81.         Next oFolder
    
82.         'xlWk.Close
    
83. End Function

复制代码

网上找了半天，好像不能直接处理手机里的图片，只能将手机里的图片，拷贝或移动到硬盘才能处理JPG图片。

ning84

读取Excel中的数据，在手机连接电脑的情况，调用手机发送短信-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/threa ... tml?_dsign=0916b02d

1  rabbit999 发表于 2016-2-25 16:08
不能直接通过手机发送短信？
用360手机助手等通过USB连接手机后，可以用360手机助手直接发送短信。既 ...
你去找手机助手要个支持vb的api就行

2 理论上是可以的，小米手机测试了下，在电脑上登录小米云服务，然后发送短信，测试一半出现bug，觉得没啥用处，最后不了了之


结论：凭我的知识点，根本不能实现。在学习这个知识点，只有死路一条，毫无结果。
期待：有免费，能支持VBA，调用和管理手机JPG图片的APP，才可以实现。
现在：还是老实的将手机JPG文件移动到PC机器里，再用VBA归纳整理JPG文件就很好了。

wanghan519

后来又试了试，装上sftpdrive，手机上开sshd，电脑挂载到z盘，就像本地文件一样用

------之前的回答-------
比如手机termux开ftp服务，电脑上ftpuse挂载到文件夹
也试过手机上开samba服务，但手机没root，不能开445端口，电脑上没法挂载
都很麻烦，复制出来操作也没啥不好

另外，如果手机上装了termux，里面有各种处理图像的工具，如果只是文件操作整理，那就更方便了，直接在手机上写代码就好

wanghan519

如果只是获取修改时间和尺寸，直接用手机批处理也挺方便

边缘码农

我记得掌阅有个无线传书功能，可以把电脑上的书籍文档传到手机上。我觉得可以研究一下这个是什么原理。可以电脑到手机，反向应该也可以吧？

morpheus126

不太确定的答案：和地址有关，如果将那个盘映射到本地即可
如果说错了请轻轻敲打