/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Fra Excel til VB
Fra : Bjørn


Dato : 20-12-00 10:48

Hejsa!

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

Jeg bruger VB6.

Mvh Bjørn



 
 
Niels Krogh (21-12-2000)
Kommentar
Fra : Niels Krogh


Dato : 21-12-00 09:12

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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408903
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste