---

Hejsa!

Hvordan åbner man et almindelig Excel-ark, med henblik på at bruge data fra
én bestemt kolonne?

Jeg bruger VB6.

Mvh Bjørn

---

Hej Bjørn,

Flg. kode gennemløber et excel regneark - du skal have en reference til
'Microsoft Excel 8.0 Object Library' i dit projekt.

mvh
Niels

' // START

Dim ExcelApp As Excel.Application
Dim ExcelWorkBook As Excel.Workbook
Dim shtSheet As Excel.Worksheet
Dim rngRange As Excel.Range, rngRange2 As Excel.Range
Dim nFirstBlankCell As Integer, nRowNumber As Integer
On Error Resume Next 'ignore errors

' look for a running copy of Excel
Set ExcelApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then 'If Excel is not running then
Set ExcelApp = CreateObject("Excel.Application") 'run it
End If
Err.Clear ' Clear Err object in case error occurred.

' Open the XLS-file.
Set ExcelWorkBook = ExcelApp.Workbooks.Open("C:\MyExcelFile.xls")

' Assign the 1st sheet of this Workbook to an object.
Set shtSheet = ExcelWorkBook.Sheets(1)

' Assign the 1st Column of this sheet to an object.
Set rngRange = shtSheet.Columns(1)

' Search the row for the first blank cell.
Set rngRange2 = rngRange.Find("")

If Not rngRange2 Is Nothing Then
nFirstBlankCell = rngRange2.Row
Else
nFirstBlankCell = 0
End If

' Go through the rows...
For RowNumber = 1 To nFirstBlankCell - 1
Debug.Print "Row " & RowNumber & " / Column 1 : " &
rngRange.Cells(RowNumber, 1)
Debug.Print "Row " & RowNumber & " / Column 2 : " &
rngRange.Cells(RowNumber, 2)
Debug.Print "Row " & RowNumber & " / Column 3 : " &
rngRange.Cells(RowNumber, 3)
Next RowNumber

' Clean up...
Set rngRange = Nothing
Set rngRange2 = Nothing
Set shtSheet = Nothing

ExcelWorkBook.Close
Set ExcelWorkBook = Nothing
Set ExcelApp = Nothing

' // STOP


"Bjørn" <b.norgaard@wanadoo.dk> skrev i en meddelelse
news:3a407f9d$1@194.255.58.12...
> Hejsa!
>
> Hvordan åbner man et almindelig Excel-ark, med henblik på at bruge data
fra
> én bestemt kolonne?
>
> Jeg bruger VB6.
>
> Mvh Bjørn
>
>