[µo°Ý] ±qexcelÀÉ®×¥t¦s°O¨Æ¥»°ÝÃD

metrostar

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

¥´¶} EXCEL Àɦ³¸Ô²Ó»¡©ú³á

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨



ÁÂÁ¤F

kimbal

EXCEL¦Û±aÂà´« "³r¸¹¤À¹j"ÀÉ®× ¥\¯à
°O±o§ï§ï¦ì¸mC:\...\ABC1.txt

1.     Cells.NumberFormat = "General"
   
2.     ActiveWorkbook.SaveAs Filename:="C:\...\ABC1.txt", FileFormat:=xlCSV, CreateBackup:=False

½Æ»s¥N½X

metrostar

ÁÂÁª©¥D !
¦A½Ð±Ð¥t¤@°ÝÃD,³o¥N½X«ç»ò¤p¤p­×§ï©O ?

Sub yy()
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.InitialFileName = "*.txt"
fos = .SelectedItems(1)
End With
Arr = Range([A1], [G65536].End(xlUp))
Open fos For Output As #1
For i = 1 To UBound(Arr)
Print #1, Replace(Join(Application.Index(Arr, i), ","), "/", "")
Next
Close #1
End Sub

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

metrostar

¤Ó´Î¤F,¥i¥H¤F
¦hÁ¨â¦ìstillfish00 «Ó­ô¾Çªø
¾Ç©f«D±`·P°Ê©O
±z¯u¬O¤Ó±j¤Ó±j¤F
·PÁ±z¨Ã¯¬¶P±z
©¯ºÖ¦n¹B¥Ã»·­°Á{±z¨­¤W