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

excel 2007/2010¶}±Òexcel 2003½s¿èªºvba¬Û®e©Ê°ÝÃD

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-8-5 07:07 ½s¿è

¦^´_ 1# lalalada
§Úª©¥»¬O2003 ¤§«e©Ò¦^Âе{¦¡¤¤¦³.Rows.Count ¦b 2007 2010 ¤¤°õ¦æ¤]¬O·|¥X¿ù
«ü©ú¤u§@ªí ¸Õ¸Õ¬Ý¥i§_¸Ñ¨M
  1. Option Explicit
  2. Sub Ex()
  3.     With Workbooks("Trading.xls").Sheets ("DataSource")
  4.         MsgBox .Range("J" & .Rows.Count).End(xlUp).Row
  5.         MsgBox CStr(.Cells(2, 10))
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# lalalada
2007¥H¤Wªº    Rows.Count   (ROWS ¬Oª«¥ó)
³o´N¦p ¤u§@ªí¼Ò²Õ Code (µ{¦¡½X) ¤¤ªº RANGE  (ª«¥ó¦WºÙ) ¦p¨S«ü¦W¤u§@ªí¦WºÙ
·í§@¥Î¤¤ªº¤u§@ªí  ¤£¬O¤u§@ªí¼Ò²Õ ªº¤u§@ªí ·|¥X¿ù¤@¼Ëªº

©Ò¥H2007¥H«áªºª©¥»¤£¯à¨Ï¥Îworkbooks(index)¤èªk¤Þ¤J¸ê®Æ¶Ü...."   
¦b  workbooks(1) ªºCODE(µ{¦¡½X)¤¤  Msgbox   workbooks(2).Name ¸Õ¸Õ¬Ý

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD