08. august 2009 - 13:21Der er
7 kommentarer og 1 løsning
Køre mange data sammen i en tabel
Hej . Jeg har en excel mappe med mange ark i, og alle de data ville jeg gerne have kørt sammen i en tabel i access, og helst uden at skulle kopiere dem manuelt
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Dim VARa As String VARa = InputBox(Prompt:="Indtast stien til Excel-arket.", Title:="Hvor ligger Excel-filen?", Default:="H:\mappenavn") DoCmd.SetWarnings False DoCmd.TransferSpreadsheet acImport, 0, "Import", VARa, False, "" MsgBox "Importen er udført."
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type
Function LaunchCD(strform As Form) As String Dim OpenFile As OPENFILENAME Dim lReturn As Long Dim sFilter As String OpenFile.lStructSize = Len(OpenFile) OpenFile.hwndOwner = strform.Hwnd sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _ "JPG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0) OpenFile.lpstrFilter = sFilter OpenFile.nFilterIndex = 1 OpenFile.lpstrFile = String(257, 0) OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1 OpenFile.lpstrFileTitle = OpenFile.lpstrFile OpenFile.nMaxFileTitle = OpenFile.nMaxFile OpenFile.lpstrInitialDir = "C:\Billede" OpenFile.lpstrTitle = "Vælg en fil og tryk på Åbn." OpenFile.flags = 0 lReturn = GetOpenFileName(OpenFile) If lReturn = 0 Then MsgBox "Manglende fil!", vbInformation, _ "Du har ikke valgt en fil fra Stifinderen." Else LaunchCD = Trim(OpenFile.lpstrFile) End If End Function
Tag en kommandoknap fra værktøjskassen (her Tekst24) Og dette i en kommandoknap26:
Dim VARa As String Me.Kommandoknap26.HyperlinkAddress = LaunchCD(Me) Me.Tekst24 = Me.Kommandoknap26.HyperlinkAddress VARa = Me.Tekst24 DoCmd.TransferSpreadsheet acImport, 0, "Import1", VARa, True, ""
nu har jeg fjernet koden. Jeg ville også lige sige at jeg er ikke så god til access og har ikke prøvet makroer for i access. Men har dog øvet mig i makro i excel Men min email adresse: kennet.bygaden44@hotmail.com
OK - Du må undskylde hvia jeg lød lidt negativ - Beklager. Men vi oplever ofte sætninger som "Det virker ikke", og det kan jeg ikke bruge til ret meget. sker der noget (fejlmeddelelse) eller sker der bare ikke noget?
Jeg lægger normalt ikke en kode her på e med mindre den er afprøvet. Er det modsatte tilfældet, skriver jeg det.
Jeg siger tak for hjælpen, men der er mange ting jeg lige skal læse lidt om inden jeg kan sige om det virker eller ej, men det er nok fejl 40 jeg arbejder lidt med.
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.