Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Imports Excel
Public Class Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlapp As New Application
Dim xlwb As Workbook
xlwb = xlapp.Workbooks.Open("c:\temp\ringtones.xls")
xlwb.Application.Visible = True
Dim xls As Excel.Sheets
Dim xlsheet As New Excel.Worksheet
Dim intRows As Integer
xls = xlwb.Worksheets
xlsheet = CType(xls.Item(1), Excel.Worksheet)
xlsheet.Activate()
intRows = xlsheet.UsedRange.Rows.Count
MessageBox.Show(intRows)
End Sub
End Class