Wednesday, 16 January 2013

To get the column and row count of Excel sheet

To get the column and row count of Excel sheet
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set ObjExcelFile1 = objExcel.Workbooks.Open("N:/Proton.xls")
Set ObjExcelSheet1 = ObjExcelFile1.Sheets("SOS_Mobile")
Row_Count = ObjExcelSheet1.UsedRange.Rows.Count
Column_Count = ObjExcelSheet1.UsedRange.Columns.Count
msgbox "Row Count is "&Row_Count& vbNewline &"Column Count is "&Column_Count
ObjExcelFile1.Close
objExcel.Quit
Posted by at

5 comments:

  1. Unknown23 March 2014 at 22:35

    So happy to be given a privilege to post a comment here. You have a wonderful site. Thank you for the effort to publish this.

    Arianne
    www.gofastek.com

    ReplyDelete
  2. Unknown11 May 2014 at 15:51

    Thanks Cindy.. :)

    ReplyDelete
  3. Fritz John Marajas4 February 2015 at 01:22

    Cotton Affairs is an Australian owned family business founded in Sydney, Australia in 1995.
    It specialises in designing, sourcing and bringing to market a wide diversity of textile homeware products.

    cotton sheet sets

    ReplyDelete
  4. Anonymous16 February 2016 at 22:34

    Good One,

    Can you please assist with the function that can paste multiple data in different sheet during run-time

    ReplyDelete
  5. Unknown20 October 2021 at 23:25


    Bedding N Bath is an Australian-owned family business founded in Sydney, Australia in 1995.
    It specializes in designing, sourcing, and bringing to market a wide diversity of textile homeware products.

    cotton sheet sets

    ReplyDelete

Subscribe to: Post Comments (Atom)