学好导入图片和视频知识，提高PPT导入图片的效率。

ning84

PPT取决从手机导入的图片管理水平。


用VBA编程方法，按时间导入图片，只能显示个人的编程水平。导入图片和视频功能实现起来，简单方便。
















电脑太老，容易死机。慢慢学。

ning84

编程方法肯定办不到。能造出2005年的数据。实在不可想象。所以，PPT的基础是如何组织管理照片。

ning84

简单实用的方法不用，编程纯属做无用功。

1. Sub TraverseFileDictFolder()
   
2.      Dim Fso As FileSystemObject, oFile As File, oFolder As Folder
   
3.          Set Fso = New FileSystemObject
   
4.      Dim PathName, Str, ii As Integer, jj, Cc, Kk
   
5.      
   
6.      Dim Dic As Dictionary
   
7.          Set Dic = New Dictionary
   
8.          PathName = ThisWorkbook.Path & "\temp"
   
9.          ''
   
10.          Set oFolder = Fso.GetFolder(PathName)
    
11.          ReDim Arr(oFolder.Files.Count - 1) As File
    
12.          For Each oFile In oFolder.Files
    
13.                Set Arr(ii) = oFile '.DateLastModified
    
14.                ii = ii + 1
    
15.          Next oFile
    
16.          DateCreate3Directionary Fso, Arr
    
17.          MoveFileToFolder Fso, Arr
    
18. End Sub
    
19. Function MoveFileToFolder(Fso As FileSystemObject, Arr)
    
20.     Dim Str
    
21.     Dim oFile As File
    
22.     For ii = 0 To UBound(Arr)
    
23.              Set oFile = Arr(ii)
    
24.              Str = ThisWorkbook.Path
    
25.              Str = Str & "" & Format(oFile.DateLastModified, "yyyy年")
    
26.              Str = Str & "" & Format(oFile.DateLastModified, "yyyy年mm月")
    
27.              Str = Str & "" & Format(oFile.DateLastModified, "yyyy年mm月dd日")
    
28.              Str = Str & "" & oFile.Name
    
29.              Debug.Print Str
    
30.             
    
31.              If Fso.FileExists(Str) = False Then
    
32.                  
    
33.                  oFile.Move Str
    
34.                  
    
35.              End If
    
36.             
    
37.     Next ii
    
38. End Function
    
39. 
    
40. ''
    
41. Function DateCreate3Directionary(Fso As FileSystemObject, oArr)
    
42.    Dim Dic As Dictionary
    
43.    Dim oFile As File
    
44.    Dim Str
    
45.        Set Dic = New Dictionary
    
46.       
    
47.         For ii = 0 To UBound(oArr)
    
48.             
    
49.             Str = Format(oArr(ii).DateLastModified, "yyyy年mm月dd日")
    
50.             Dic(Str) = ""
    
51.         Next ii
    
52.         ''
    
53.     Dim Arr
    
54.     ReDim Arr(Dic.Count - 1, 2)
    
55.         
    
56.         For ii = 0 To Dic.Count - 1
    
57.              Arr(ii, 0) = "" & Format(Dic.Keys(ii), "yyyy年")
    
58.              Arr(ii, 1) = Arr(ii, 0) & "" & Format(Dic.Keys(ii), "yyyy年mm月")
    
59.              Arr(ii, 2) = Arr(ii, 1) & "" & Dic.Keys(ii)
    
60. 
    
61.         Next ii
    
62.         ''
    
63.     For ii = 0 To UBound(Arr)
    
64.         For jj = 0 To 2
    
65.         
    
66.             If Fso.FolderExists(ThisWorkbook.Path & Arr(ii, jj)) = False Then
    
67.                  Fso.CreateFolder ThisWorkbook.Path & Arr(ii, jj)
    
68.             End If
    
69.         
    
70.         Next jj
    
71.     Next ii
    
72.         
    
73. End Function
    
74. 
    
75.       
    
76.       
    
77. 
    

复制代码

ning84

看了这个帖子，手机太强大了，手机直接实现目标，电脑操作太麻烦。


怎么查看电脑连接的WiFi密码-百度经验  https://jingyan.baidu.com/article/c910274b4fa2b2cd361d2dba.html