Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
HomeAnnouncementsFree MagazinesWhite PapersSubmit Content
Discussion GroupsASP.NETWindows FormsLanguages.NET FrameworkVisual Studio.NET
Articles.NET FrameworkASP.NETToolsWindows Forms
.NET DirectoryOpen Source ProjectsUser GroupsWeb Resources
Related Topics
Visual Basic 6SQL ServerMS AccessOther DB ProductsMS Server ProductsMore Topics ...

.NET Forum / Languages / VB.NET / May 2006

Tip: Looking for answers? Try searching our database.

referencing cells in Excel and finding empty cells

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
mgoold2002@hotmail.com - 29 May 2006 21:28 GMT
I'm moving some code from Excel vbs into a .NET context and I'm very
new to .NET.  I'm trying to make this Excel vb code work in .NET.  My
questions are: how do I reference cells correctly using the common
"cells(x,y)" reference, where x and y are integer variables.  Also, how
do I verify that the cells are empty, since, according to the
documentation, the "IsEmpty" function does not work in .NET now?

Thanks for any help!

'//////////START CODE EXAMPLE///////////

Function getroworcol(roworcol, start)

Dim intoutside As Integer
Dim intctr

'DETERMINE START POINT OF SEARCH
If roworcol = 0 Then
outside = 200
Else
outside = 50
End If

'COUNT BACKWARDS FROM START POINT UNTIL FIND FILLED CELL
For intctr = outside To 1 Step -1
   If roworcol = 0 Then
       If IsEmpty(Cells(intctr, 1)) = False Then
       Exit For
       End If
   ElseIf roworcol = 1 Then
       If IsEmpty(Cells(1, intctr)) = False Then
       Exit For
       End If
   End If
Next intctr

getroworcol = intctr

End Function

'////END CODE////////
R. MacDonald - 30 May 2006 12:49 GMT
Hello, mgoold2002,

Using "Cells" is essentially the same as in Excel VBA, except that you
will need to apply it to an object (rather than using the "default").
Perhaps you can replace IsEmpty by comparing the Formula with an empty
string, as in the example below:

        Dim xlapp As Excel.Application
        xlapp = CType(CreateObject("Excel.Application"), _
                      Excel.Application)
        Dim wb As Excel.Workbook = _
                  xlapp.Workbooks.Open("J:\Test\ExcelTest\Test.xls")
        Dim xlSheet As Excel.Worksheet = wb.Worksheets(1)
        Dim currRow As Integer = 1
        xlSheet.Cells(currRow, 1) = 1.23
        xlSheet.Cells(currRow, 2) = "AB.CD"
        xlSheet.Cells(currRow, 3) = Now
        If (xlSheet.Cells(currRow, 4).Formula = "") Then
            MsgBox("It's empty!")
        End If
        wb.Save()
        wb.Close()
        xlapp.Quit()

Cheers,
Randy

> I'm moving some code from Excel vbs into a .NET context and I'm very
> new to .NET.  I'm trying to make this Excel vb code work in .NET.  My
[quoted text clipped - 37 lines]
>
> '////END CODE////////

Free Magazines

Get these publications absolutely FREE for up to 12 months. There are no hidden fees and no obligation. Simply choose a title, complete the application form and submit it. Read more ...

Oracle MagazineNetwork ComputingComputer WorldBio-IT WorldeWeekInformation WeekInfosecurity
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.