移动莫名其妙生成的前面加点的IMG文件。

ning84

使用剪贴功能，将手机里的IMG文件，搬到硬盘，莫名其妙的生成前面带点的IMG文件。

.IMG_20240318_094526600.jpg
IMG_20240318_094526600.jpg
.IMG_20240318_095838459.jpg
IMG_20240318_095838459.jpg
.IMG_20240318_095842613.jpg

使用这个方法效果不好。










只能用VBA解决。

1. Private Sub delDotImg()
   
2.     Dim Fso As FileSystemObject, oFolder As Folder, oFile As File
   
3.         Set Fso = New FileSystemObject
   
4.     Dim Sht As Worksheet
   
5.         Set Sht = Selection.Parent
   
6.    
   
7.     Dim PathArr(1), FileArr(1)
   
8.         PathArr(0) = ThisWorkbook.Path & "" & Sht.Name & ""
   
9.         PathArr(1) = ThisWorkbook.Path & "" & Sht.Name & "\del"
   
10.         Set oFolder = Fso.GetFolder(PathArr(0))
    
11.         For Each oFile In oFolder.Files
    
12.             
    
13.              If InStr(UCase(oFile.Name), ".IMG") > 0 Then
    
14.                   Debug.Print oFile.Name
    
15.                   oFile.Move PathArr(1)
    
16.              End If
    
17.         Next oFile
    
18. 
    
19. End Sub
    

复制代码

ning84

1. Sub ll()
   
2.     Dim ii, Kk
   
3.     Dim Rng1 As Range, Rng2 As Range
   
4.         Set Rng1 = Cells(15, "A").CurrentRegion
   
5.         Set Rng2 = Cells(15, "H").CurrentRegion
   
6.         Rng2.Interior.Color = xlNone
   
7.         Rng1.Interior.Color = xlNone
   
8.         Debug.Print Rng1.Address, Rng2.Address
   
9.         
   
10.     Dim oDate As Date, oDate1 As Date, oDate2    As Date
    
11.         For ii = 1 To Rng2.Rows.Count
    
12.              oDate = Rng2(ii, 1)
    
13.              For Kk = 1 To Rng1.Rows.Count - 1
    
14.                   oDate1 = Rng1(Kk, 1)
    
15.                   oDate2 = Rng1(Kk + 1, 1)
    
16.                   If oDate >= oDate1 And oDate < oDate2 Then
    
17.                        Rng1(Kk, 3) = "=" & Rng2(ii, 2).Address
    
18.                        Rng1(Kk, 4) = "=" & Rng2(ii, 1).Address
    
19.                        Rng2(ii, 2).Interior.ColorIndex = Kk
    
20.                        Rng1(Kk, 3).Interior.ColorIndex = Kk
    
21.                   End If
    
22.              Next Kk
    
23.         Next ii
    
24.    
    
25. End Sub
    

复制代码