[³]¤@Ó¥¨¶°] ¶}±ÒÀÉ®× °ÝÃD....
- ©«¤l
- 37
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 63
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-25
- ³Ì«áµn¿ý
- 2016-5-24
|
[³]¤@Ó¥¨¶°] ¶}±ÒÀÉ®× °ÝÃD....
C:\auto_download_page\chap42589_00001_2013_0830_1457" =====> file size 70kb
C:\auto_download_page\chap42589_00002_2013_0830_1458" =====> file size 70kb
C:\auto_download_page\chap42589_00003_2013_0830_1459" =====> file size 70kb
C:\auto_download_page\chap42589_00004_2013_0830_1500" =====> file size 70kb
C:\auto_download_page\chap42589_00005_2013_0830_1501" =====> file size 70kb
C:\auto_download_page\chap42589_00006_2013_0830_1502" =====> file size 230kb
C:\auto_download_page\chap42589_00007_2013_0830_1503" =====> file size 230kb
C:\auto_download_page\chap42589_00008_2013_0830_1504" =====> file size 230kb
½Ð°Ý¦pªG§Ún³]¤@Ó¥¨¶° ©w®É¶}±ÒÀÉ®×
¦pªG file size ¬O100kb ¥H¤U ´N¤£¶}±Ò ( ´`Àô N ¦¸ ) ( ¨Ã¦³¦¸§Ç file¦W 00001 , 00002 .............. ´ú¸Õ¶}±ÒÀÉ®× )
ª½¨ìÀÉ®× 00006 ªº size ¶W¹L 100kb ¤~¶}±ÒÀÉ®×, macro À³¸Ó«ç¼g ??? |
|
|
|
|
|
|
- ©«¤l
- 37
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 63
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-25
- ³Ì«áµn¿ý
- 2016-5-24
|
¦^´_ 2# GBKEE - Set sht1 = Sheets("Sheet1")
- Set sht2 = Sheets("Sheet2")
- lastrow = sht1.Cells(sht1.Rows.Count, 1).End(xlUp).Row
- For rw = 2 To lastrow
- With sht2.QueryTables.Add(Connection:= _
- "URL;" & sht1.Cells(rw, 1).Value _
- , Destination:=Sheets("Sheet2").Range("A1"))
- .Name = Sheet
- .FieldNames = False
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = False
- .RefreshOnFileOpen = False
- .BackgroundQuery = False
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = False
- .AdjustColumnWidth = False
- .RefreshPeriod = 0
- .WebSelectionType = xlEntirePage
- .WebFormatting = xlWebFormattingNone
- .WebPreFormattedTextToColumns = False
- .WebConsecutiveDelimitersAsOne = False
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .Refresh BackgroundQuery:=False
- End With
½Æ»s¥N½X ¦]¬°§Ú¬O¥Îweb query aspx ¨Ó¶}ÀÉ ¦ý¤£ª¾¹DnÂI§ï |
|
|
|
|
|
|
- ©«¤l
- 37
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 63
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-25
- ³Ì«áµn¿ý
- 2016-5-24
|
¦^´_ 4# GBKEE
¹ï, ¨º¨ÇÀɮ׬O ±q¤U¸ü³n¥ó download ¨ì¹q¸£ ,
¦]¬°¸gºô¤W webquerytable¨údata¤ÓºC,
§Ú²{¦b¥Î cmd.exe >dir /b > filelist.txt paste ¦bsheet1 AÄæ¸Ì,
¦A¥ÎAÄæ¸Ìªºpath link ¶¶§Ç¥h¨úfile data ( 100Ófile¬Jdata ¤£¥Î2¤ÀÄÁ´NRUN§¹ )
==================================================
§Ú¥¿¦b±´¯Á¤¤ §Aµ{¦¡½X "error 53 file not find "
CreateObject("Scripting.FileSystemObject").GetFile(File_Name)
If UBound(Split(File_Nane, "_")) > 0 Then
ÁÙ¦³_ ªº·N«ä¬O§_n«ü©w³o¼Ë 000000000_00000_0000_0000_0000
¦]¬°¦³4Ó _ _ _ _ chap42589_00001_2013_0830_1457
chap42590_00001_2013_0830_1458
²{¦b¥u®t¦³¨S¦³¥tÃþ¤èªk¥i¥H±N 70kb ¥H¤UªºÀÉ®× (¦b¹q¸£¦Û°Ê§R°£ ©ÎªÌ ¤£·|Ū¨ú´N¥i¥H). |
|
|
|
|
|
|