kimbal

¦^´_ 1# chiahuo

1. Sub test()
   
2.    
   
3.    Dim fileToOpen
   
4.     fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="½Ð¿ï¾ÜÀÉ®×")
   
5.     If fileToOpen <> False Then
   
6.         Workbooks.OpenText Filename:=fileToOpen _
   
7.         , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
   
8.         xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
   
9.         Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
   
10.         3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10 _
    
11.         , 2)), TrailingMinusNumbers:=True
    
12.     End If
    
13.     Dim wb As Workbook
    
14.     Set wb = ActiveWorkbook
    
15.     FileFilter = "Excel Files(*.xls),*.xls"
    
16. Do
    
17.     fName = Application.GetSaveAsFilename(, FileFilter:=FileFilter)
    
18. Loop Until fName <> False
    
19. wb.SaveAs Filename:=fName, FileFormat:=xlWorkbookNormal
    
20. End Sub

½Æ»s¥N½X