loop through cells in excel file from access vba
Hi all,
I have this code in Access, that open excel file and format it:
Dim xlApp As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Applic
Set xlSheet = xlApp.Workbooks.Open(sFile
With xlApp
.Application.Range("A2:A10
Dim cell As Range
For Each cell In xlApp
If cell.Value="Hi" Then
.Application.cell.Interior
End If
Next
End with
How can i fix this code to work in access .
the problem is on looping through cells and checking the value of the cell :
Dim cell As Range
For Each cell In xlApp
If cell.Value="Hi" Then
.Application.cell.Interior
End If
Next
thanks in regard:}
I have this code in Access, that open excel file and format it:
Dim xlApp As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Applic
Set xlSheet = xlApp.Workbooks.Open(sFile
With xlApp
.Application.Range("A2:A10
Dim cell As Range
For Each cell In xlApp
If cell.Value="Hi" Then
.Application.cell.Interior
End If
Next
End with
How can i fix this code to work in access .
the problem is on looping through cells and checking the value of the cell :
Dim cell As Range
For Each cell In xlApp
If cell.Value="Hi" Then
.Application.cell.Interior
End If
Next
thanks in regard:}
ste5an
Well, looks like homework. Guess what you xlSheet variable is for..
ASKER
I just paste portion from whole code, that just open excel file then start process of formatting it in the background then save it then exit .
everything works perfect, but when it comes to format a cell depend of the value of it . then i stuck there.
Set xlSheet = xlApp.Workbooks.Open(sFile
opens the file mention in previous code .
everything works perfect, but when it comes to format a cell depend of the value of it . then i stuck there.
Set xlSheet = xlApp.Workbooks.Open(sFile
opens the file mention in previous code .
Doesn't look like homework to me ...
Does your code NOT check the value of the "cell" variable in this line:
If cell.Value="Hi" Then
If not, put a breakpoint in the code and run the procedure. When it stops, enter this in the Immediate window:
?cell.Value
And press the Enter key, then post the results back here.
Does your code NOT check the value of the "cell" variable in this line:
If cell.Value="Hi" Then
If not, put a breakpoint in the code and run the procedure. When it stops, enter this in the Immediate window:
?cell.Value
And press the Enter key, then post the results back here.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Perfecto Norie,... work like a charm!:|}