stillfish00

¦^´_ 3# metrostar
°Ñ¦Ò¬Ý¬Ý

1. Sub yy()
   
2.   Dim fos, Arr
   
3.   fos = Application.GetSaveAsFilename("*.txt", "¤å¦rÀÉ®× (*.txt), *.txt")
   
4.   If Not TypeName(fos) = "String" Then Exit Sub '¨ú®ø
   
5.   Arr = Range([A1], [G65536].End(xlUp))
   
6. 
   
7.   Application.ScreenUpdating = False
   
8.   With Workbooks.Add
   
9.     .Sheets(1).[A1].Resize(UBound(Arr), UBound(Arr, 2)).Value = Arr
   
10.     .SaveAs Filename:=fos, FileFormat:=xlCSV
    
11.     .Close False
    
12.   End With
    
13.   Application.ScreenUpdating = True
    
14. End Sub

½Æ»s¥N½X