Re: Write to empty cell in excel

mbenbow — Wed, 08 Nov 2006 14:18:53 GMT

Hey,

Without knowing the complete details of how your project will be deployed, you might be able to use the following. It is written in VB Script: (Note: to use this code the form will need to be fully trusted - also, this code is off the top of my head and has not been tested.)

Sub PopRowColValue(sFile, sToPop)

'sFile - is the path to your excel file
'sToPop - is the InfoPath field value to populate to Excel

Dim objExcel
Dim objActiveWorkbook
Dim iAllRows
Dim iLastRow
Dim iRow
Dim iCol

Set objExcel = CreateObject("Excel.Application")
Set objActiveWorkbook = objExcel.Workbooks.Open(sFile)

'grab all the rows of the appropriate sheet
iAllRows = objActiveWorkbook.WorkSheets("Sheet1").Rows.Count

'set to column A
iCol = 1

For iRow = 0 to iAllRows
If objActiveWorkbook.WorkSheets("Sheet1").Cells(iRow, iCol).Value = "" Then
'tag it because it is the last row for the column
iLastRow = iRow + 1
Exit For
End If
Next

'write it to excel
objActiveWorkbook.WorkSheets("Sheet1").Cells(iLastRow, iCol).Value = sToPop

End Sub

Write to empty cell in excel

Turnipboy — Tue, 07 Nov 2006 16:34:55 GMT

Hi,

I am a bit of a donkey with code, so could someone help me out. I would like to make infopath write the contents of a field into column A of an excel document when I hit a button. This excel file will grow as more infopath files write to it, so infopath would have to find an empty cell in column A to write to so as not to delete a previous entry.

Thanks.

Newbie Questions

Re: Write to empty cell in excel

Write to empty cell in excel