TextToColumns如何分离成数组。

ning84

1. Sub ll()
   
2.    Dim Rng As Range
   
3.        Set Rng = Selection
   
4.        Rng.TextToColumns , xlFixedWidth, _
   
5.        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(10, 1), Array(12, 1), _
   
6.         Array(13, 1), Array(15, 1), Array(17, 1), Array(19, 1)), TrailingMinusNumbers:=True
   
7. 
   
8. 
   
9.       
   
10. End Sub
    

复制代码

程序运行后，结果在多个单元列中，不是目标需求。

名称	必选/可选	数据类型	说明
Destination	可选	Variant	一个 Range 对象，指定 Microsoft Excel 放置结果的位置。如果该区域大于一个单元格，则使用左上角的单元格。
DataType	可选	XlTextParsingType	将被拆分到多列中的文本的格式。
TextQualifier	可选	XlTextQualifier	指定是将单引号、双引号用作文本分隔符还是不使用引号。
ConsecutiveDelimiter	可选	Variant	如果为 True，则 Microsoft Excel 将连续分隔符视为一个分隔符。默认值为 False。
Tab	可选	Variant	如果为 True，则 DataType 为 xlDelimited 并将制表符作为分隔符。默认值为 False。
Semicolon	可选	Variant	如果为 True，则 DataType 为 xlDelimited 并将分号作为分隔符。默认值为 False。
Comma	可选	Variant	如果为 True，则 DataType 为 xlDelimited 并将逗号作为分隔符。默认值为 False。
Space	可选	Variant	如果为 True，则 DataType 为 xlDelimited 并将空格字符作为分隔符。默认值为 False。
Other	可选	Variant	如果为 True，则 DataType 为 xlDelimited 并将 OtherChar 参数指定的字符作为分隔符。默认值为 False。
OtherChar	可选	Variant	（如果 Other 为 True，则为必选项）。当 Other 为 True 时的分隔符。如果指定了多个字符，则仅使用字符串中的第一个字符而忽略剩余字符。
FieldInfo	可选	Variant	包含单列数据相关分列信息的数组。对该参数的解释取决于 DataType 的值。如果此数据由分隔符分隔，则该参数为由两元素数组组成的数组，其中每个两元素数组指定一个特定列的转换选项。第一个元素为列标（从 1 开始），第二个元素是 xlColumnDataType 的常量之一，用于指定分列方式。
DecimalSeparator	可选	Variant	识别数字时，Microsoft Excel 使用的小数分隔符。默认设置为系统设置。
ThousandsSeparator	可选	Variant	识别数字时，Excel 使用的千位分隔符。默认设置为系统设置。
TrailingMinusNumbers	可选	Variant	以减号字符开始的数字。

ning84

简单的事，搞复杂了。
用 Mide简单方便直接。

1.     Dim Str, DateStr
   
2.     Dim oDate As Date
   
3.         DateStr = Selection
   
4.         Str = Mid(DateStr, 5, 4) & " / " & Mid(DateStr, 9, 2) & " / " & Mid(DateStr, 11, 2)
   
5.         Str = Str & " " & Mid(DateStr, 14, 2) & ":" & Mid(DateStr, 16, 2) & ":" & Mid(DateStr, 18, 2)
   
6.         Debug.Print Str
   
7.         Stop
   
8.         oDate = Str
   
9.         Debug.Print oDate
   
10.         Stop

复制代码

ning84

ning84 发表于 2024-3-22 10:18
简单的事，搞复杂了。
用 Mide简单方便直接。

1. 
   
2. Function TraverseFile(oFolder As Folder)
   
3.      Dim oFile As File
   
4.      Dim DateStr, Str
   
5.      Dim oDate As Date
   
6.          For Each oFile In oFolder.Files
   
7.              If InStr(oFile.Name, "IMG") > 0 Then
   
8.                   DateStr = oFile.Name
   
9.                   Str = Mid(DateStr, 5, 4) & " / " & Mid(DateStr, 9, 2) & " / " & Mid(DateStr, 11, 2)
   
10.                   Str = Str & " " & Mid(DateStr, 14, 2) & ":" & Mid(DateStr, 16, 2) & ":" & Mid(DateStr, 18, 2)
    
11.                   oDate = Str
    
12.                   'Debug.Print oDate,
    
13.                   'Debug.Print apiSetFileTime(oFile.Path, oDate, oDate, oDate)
    
14.                   Debug.Print apiSetFileTime(oFile.Path, Str, Str, Str)
    
15.              ElseIf InStr(UCase(oFile.Name), "SCR") > 0 Then
    
16.                   DateStr = oFile.Name
    
17.                   Str = Mid(DateStr, 5, 4) & " / " & Mid(DateStr, 9, 2) & " / " & Mid(DateStr, 11, 2)
    
18.                   Str = Str & " " & Mid(DateStr, 14, 2) & ":" & Mid(DateStr, 16, 2) & ":" & Mid(DateStr, 18, 2)
    
19.                   oDate = Str
    
20.                   'Debug.Print oDate,
    
21.                   Debug.Print apiSetFileTime(oFile.Path, Str, Str, Str)
    
22.                   Stop
    
23.                   Debug.Print apiSetFileTime(oFile.Path, oDate, oDate, oDate)
    
24.              End If
    
25.              Debug.Print oFile.Name, oFile.DateLastModified
    
26.             
    
27.          Next oFile
    
28. End Function
    
29. 
    
30. Function TraverseFolder(oFolders As Folders)
    
31.      Dim oFolder As Folder
    
32.      Dim ii
    
33.          'For ii = 1 To oFolders.Cot
    
34.          For Each oFolder In oFolders
    
35.               'Set oFolder = oFolders.Item(ii)
    
36.               'Debug.Print oFolder.Path ', oFolder.SubFolders.Count
    
37.               If InStr(oFolder.Path, "System Volume Information") <= 0 Then
    
38.                  'Debug.Print oFolder.Path, oFolder.SubFolders.Count
    
39.                  TraverseFile oFolder
    
40.               End If
    
41.          Next oFolder
    
42.          'Next ii
    
43. End Function
    
44. 
    
45. 
    
46. Sub TraverseFolderFile()
    
47.     Dim Fso As FileSystemObject
    
48.         Set Fso = New FileSystemObject
    
49.     Dim oFolder As Folder, oFile As File
    
50.     Dim oFolders As Folders
    
51.         Set oFolder = Fso.GetFolder(ThisWorkbook.Path & "")
    
52.         
    
53.         Set oFolders = oFolder.SubFolders
    
54.         
    
55.         Debug.Print oFolder.Name
    
56.         TraverseFolder oFolders
    
57.         
    
58. End Sub
    

复制代码