·Q½Ð°Ýexcel¯à¨C¤Ñ§ì¥~¸ê´Á³fªº¸ê®Æ¶Ü
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- mac
- ³nÅ骩¥»
- office 2011
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-19
- ³Ì«áµn¿ý
- 2012-7-20
|
·Q½Ð°Ýexcel¯à¨C¤Ñ§ì¥~¸ê´Á³fªº¸ê®Æ¶Ü
§Ú§ä¤F«Ü¦h¤å³¹..
¤]¶R¤F®Ñ¨Ó½..
¥i¬O§Ú¥u¬O·Q»¡pºâ¥~¸ê¤j·§ªº¦¨¥»§¡»ù¦bþ
©Ò¥H¥²¶·n¨C¤Ñ¥h´Á±Ðºô§ì¥~¸êªº¸ê®Æ (ªÅ³æ¯dܤf¼Æ¦h³æ¤f¼Æ...)
§Ú¤§«e¦³§ì¨ì¥i¬O¬O§â¾ã½g³£§ì¤U¨Óªº¦Ó¥B¤£¯à¦Û°Ê§ó·s..
½Ð°ÝþÃä¥i¥H§ä¨ì±Ð¾Ç¶Ü¡H
ÁÂÁÂ.
³Qexcel§Ö·dºÆªº¤H. |
|
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- mac
- ³nÅ骩¥»
- office 2011
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-19
- ³Ì«áµn¿ý
- 2012-7-20
|
¹ï..¥i¬O§Ú·Qn¥un¥~¸êªº°T®§ µM«á ¨C¤Ñ¯à¦Û°Ê§ó·s³o¼Ë...@@ |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- 9
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2012-12-3
|
¥H¤Uªºµ{¦¡½X¥i¥H§ó·s
§A¥i¥H¦h¹Á¸Õ¬Ý¬Ý
§Ú¥u§ì¨ú´Á¥æ©Òºô¯¸ªº¸ê®Æ¡A¦Ó´Á¥æ©Ò¦b¥æ©ö¤é¦¬½L«á¤U¤È¤TÂI§ó·s¸ê®Æ- Sub ¥x«ü´ÁOI¸ê®Æ¤@()
- '================================================================================================================================
- Dim MyUrl As String
- '================================================================================================================================
- Application.ScreenUpdating = False '¥[§Ö³B²z³t«×
- Worksheets("Temp").Select '¼È¦s¸ê®Æªººô¶
- Cells.Clear
- MyUrl = "URL;http://www.taifex.com.tw/chinese/3/3_1_1.asp"
- With ActiveSheet.QueryTables.Add(Connection:=MyUrl, Destination:=Range("A1"))
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .BackgroundQuery = True
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .WebSelectionType = xlEntirePage
- .WebFormatting = xlWebFormattingNone
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
- '--------------------------------------------------------------------------
-
- Bye:
- '--------------------------------------------------------------------------
- Delete_Rows
- '--------------------------------------------------------------------------
- End Sub
- Private Function Delete_Rows()
- '==========================================================================
- Dim Temp_Count As Integer
- Dim Key_Point As String
- Dim Data_Row As Integer
- Dim Delete_Row As Integer
- Dim I As Integer
- '==========================================================================
- Temp_Count = Worksheets("Temp").Range("A65536").End(xlUp).Row
- '--------------------------------------------------------------------------
- StepA:
- '--------------------------------------------------------------------------
- '§ä¥XÃöÁä¦r¤¸¡A§PÂ_©Ò»Ý¸ê®ÆªºÄæ¦ì
- '--------------------------------------------------------------------------
- For I = 1 To Temp_Count
- Key_Point = Worksheets("Temp").Range("A" & I).Value
- If Key_Point = "»OªÑ´Á³f (TX) ¦æ±¡ªí" Then
-
- Data_Row = I
-
- GoTo StepB
-
- End If
-
- Next I
- '--------------------------------------------------------------------------
- StepB:
- '--------------------------------------------------------------------------
- '§R°£¤£¥²nªº¸ê®Æ
- '--------------------------------------------------------------------------
- Delete_Row = Data_Row - 3
- Rows("1:" & Delete_Row).Select
- Selection.Delete Shift:=xlUp
- '--------------------------------------------------------------------------
- End Function
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-9
- ³Ì«áµn¿ý
- 2019-10-31
|
¥Î¬d¸ßWeb¸ê®Æªº¤è¦¡´N¥i¥H¤F(Excel¤º«Ø¥\¯à)¡A¦A³]©w¶}±Ò®É§ó·s¡AÀ³¸Ó¥i¥H¸Ñ¨M§Aªº°ÝÃD¤F§a |
|
|
|
|
|
|