ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

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

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



ÁÂÁ¤F

Book2.rar (5.25 KB)

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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÂÁª©¥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

TOP

¦^´_ 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.   Application.ScreenUpdating = False
  7.   With Workbooks.Add
  8.     .Sheets(1).[A1].Resize(UBound(Arr), UBound(Arr, 2)).Value = Arr
  9.     .SaveAs Filename:=fos, FileFormat:=xlCSV
  10.     .Close False
  11.   End With
  12.   Application.ScreenUpdating = True
  13. End Sub
½Æ»s¥N½X

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD