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

[µo°Ý] ¦p¦ó¨Ï¥Îvb¦Û°Ê¦sÀÉ?

[µo°Ý] ¦p¦ó¨Ï¥Îvb¦Û°Ê¦sÀÉ?

½Ð°Ý¤j¤j
§Ú·QÅýexcel ¦s¦¨txtÀÉ
¦btxt¤¤¤£¯dªÅ¥Õ¤ÎªÅ¤@¦æ
ÀɦW§ìB2  ¤Î B3

¦p
B2 = ¤@
B3 = 23

¦sÀÉ«á·|Åܦ¨ ¤@23.txt

ÁÂÁ¤j¤j

°²³]¤º®e¦bAÄæ
strFilename = [B1] & [B2]
    Columns(1).SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    [B1] = ""
    [B2] = ""
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\...\" & strFilename & ".txt", FileFormat:=xlUnicodeText
    Application.DisplayAlerts = True
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¥»©«³Ì«á¥Ñ v60i ©ó 2011-11-3 22:24 ½s¿è

¦^´_ 2# kimbal


    ¤j¤j¦pªG§Ú³ÐCommandButton
¶K¤W¤j¤jªºµ{¦¡½X
¤£¯à¥Î£®
¥L»¡SAVEAS¤èªk¥¢±Ñ

TOP

¥»©«³Ì«á¥Ñ v60i ©ó 2011-11-3 22:33 ½s¿è

¦^´_ 2# kimbal


¤j¤j §Ú¦Û¦æÅÍ©w¤F ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD