17. januar 2005 - 12:04Der er
4 kommentarer og 1 løsning
Hjælp til import fra Excel til Access?
Jeg har det her lille problem! Den virker fint hvis der allerede findes et recordset der matcher i Access Databasen. Men hvis der ikke gør, skal den addnew og så hoppe videre til næste i Excel arket....
Her er min kode:
Private Sub ImporterPriser() Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim rsImportPriser As Recordset Dim Import_Varenummer As String Dim Import_Priser As String
Set xlApp = Excel.Application xlApp.Workbooks.Open ValgAfImportFil xlApp.Visible = True
For X = 0 To 5000
If xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0) = "" Then MsgBox ("The Import of the Product are Complete") Exit Sub Else Import_Varenummer = xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0)
Set datDB = DBEngine.Workspaces(0).OpenDatabase(FRM_Start.SHB_DatabaseSti.Text) strSQL = "Select * from kundevarenummer WHERE varenummer Like '*" & Import_Varenummer & "*'" Set rsImportPriser = datDB.OpenRecordset(strSQL)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub ImporterPriser() Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim rsImportPriser As Recordset Dim Import_Varenummer As String Dim Import_Priser As String
Set xlApp = Excel.Application xlApp.Workbooks.Open ValgAfImportFil xlApp.Visible = True
For X = 0 To 5000
If xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0) = "" Then MsgBox ("The Import of the Product are Complete") Exit Sub Else Import_Varenummer = xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0)
Set datDB = DBEngine.Workspaces(0).OpenDatabase(FRM_Start.SHB_DatabaseSti.Text) strSQL = "Select * from kundevarenummer WHERE varenummer Like '*" & Import_Varenummer & "*'" Set rsImportPriser = datDB.OpenRecordset(strSQL)
bredan1977>Kan du ikke kigge på din anden spørgsmål, eller kan vi ikke hjælpe!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
