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

[µo°Ý] ¥i¥H¤U¸ü,Ū¨ú¦³°ÝÃD

¤j¦¨¥\!!
·PÁ§A
³o³t«×¯u¬O¤ÓÅý¤Hº¡·N¤F~
¥t¥~µ¹­Ó¤£­«­n¤p«Øij
¦pªG¦b¤U¸ü«e¦h¥[¤@­Ó§PÂ_­¶¼Æ¬O§_¬°ªÅ¦r¦ê
§Y¥iÁקK¤U¸ü¨ìµL¸ê®Æhtm
¨Æ«á¤]´N¤£¥²³B²z
¤j·§¥i¥H¦h¬Ù­Ó´X¦æ=~="

TOP

¦^´_ 31# lalalada


    ¤£¿ù!¦³Â§»ªªº«Ä¤l~¨Ä~
À´ªº´£¿ô§Ú~

¦ý¬O!!
»yªkµ¹¥X¨Ó~~¤£ª¾¹D§Ú«Üµæ?!

^¥×^

TOP

XD
¤£´N
If Page <> "" then °j°é
@@?

TOP

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-8-10 09:30 ½s¿è

¦^´_ 31# lalalada

    §Ú¦Û¤vªºÀ³¥Î¬O,¤£¥²½Õ®æ¦¡
¥þ³¡¥æµ¹Access³B²z®æ¦¡°ÝÃD

©Ò¥H¥[¤W§A«Øijªº¿z¿ï¨S¥æ©öªº¤£¥Î¤U¸ü¤§«á
´N¥u»Ý­n³o¬q,·|§ó§Ö

©Ò¥H¬Ù¤Uªº±¾¸ü®É¶¡ ;¥[¤WÂàÀɮɶ¡
(ÂàÀɦb¦Û¤vªº¹q¸£¸Ì³B¸Ì¡A°_½X¨S±¾¦bºô¸ô¤W,¼W¥[IPÃn¥ú¦MÀI©Ê)
¶â!!!¦bÁÙ¨S¦³CSV¥i¤U¸ü¤§«e,Áٺ⺡·N!
  1. Sub ChangHtmToXls()     'htm§ïxls
  2. Dim F As String, path As String, file As String
  3. path = "D:\htm\"    'Àɮצs©ñªº¦ì¸m
  4. file = Dir(path & "¨é°Ó¥«*.htm")
  5. Do While file <> ""
  6. Application.DisplayAlerts = False
  7.     With Workbooks.Open(path & file)
  8.     .SaveAs Filename:=path & Replace(file, ".htm", ".xls"), FileFormat:=xlNormal
  9.     ActiveWorkbook.Close True
  10. Application.DisplayAlerts = True
  11.         End With
  12.         file = Dir
  13. Loop
  14. Kill "D:\htm\*.htm"        '¤U¸ü§¹,ÂàÀÉ«á¦A¤@°_§R  *.hml  (¤ñ¸û¬Ù®É)
  15. End Sub
½Æ»s¥N½X
¨ä¹ê,µyµy¦^ÅU¤§«á,¤~µo²{
http://forum.twbts.com/viewthrea ... p;extra=&page=2
#11 ¼Óªº¤j¤j,¤]´¿´£¹L³o­Ó§Ö³t [¹F¨ì] ¨ú¸ê®Æªº¥Øªº
¥u¬O¤j®a¹ï®æ¦¡ªº°ÝÃD©Ò§xÂZ¡A¦Ó¨SÄ~Äò³o¤è­±ªºÀ³¥Î

©Ò¥H,¤T¤H¦æ,¥²¦³§Ú®v~~~ÁÂÁ®¦®v­Ì!
ÂǥѰQ½×¤¤¥X²{ªº°ÝÃD,¦U¦Û¹F¨ì¦¨ªø¥Øªº
³o¤~¬O½×¾Âªº¥Øªº

~·P®¦~

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD