Astuces Excel
  1. Astuces Excel
  3. Extraction de données d'Excel vers Access Database
Intereting Posts
Si Déclaration pour remplir une cellule en fonction d'autres cellules Créer un vector de colors dans VBA Vérifiez si un élément d'une list existe dans une autre list Erreur VBA 'Impossible de modifier une partie d'une cellule fusionnée' Comment find la formule par nom dans les macros excel Importer des files csv avec "+" principal dans Excel Définition de la propriété Row to Mocked Microsoft.Office.Interop.Excel.Range with Mock Pourquoi ma couleur de fond n'a-t-elle pas été appliquée (Aspose Cells)? Traiter une table Excel avec Python Définir l'location de la feuille, resize et repositionner les charts dans Excel Appel d'une fonction DLL de vba excel 64 bit Microsoft Visual basic 6.5 Ignorer le cas formule dans la formule obtenant CELL / MATCH Comment puis-je utiliser un COUNTIF ou VLOOKUP pour get le numéro à droite du text sur une feuille de calcul différente? Excel, VBA, .ClearContents avec plage référencée, erreur 1004

Extraction de données d'Excel vers Access Database

Il existe un formulaire d'entreprise standard actuellement en format Word (pourrait utiliser une technologie différente) avec des champs.

Comment puis-je extraire datatables dans mon Access DB à partir de ces champs?

Je suis également ouvert aux conseils sur lesquels la technologie répond mieux à mes exigences avec les exigences suivantes:

  1. Besoin d'un document à envoyer aux clients et append les informations complétées dans la database
  2. Peut récupérer des informations de la database et la représenter sous la forme

Traduire ce formulaire dans Excel. Utilisez "Recueillir des données" sous l'onglet "Données externes" du ruban pour collecter datatables auprès des clients. Pour extraire des données sur votre feuille de calcul d'Access, faites quelque chose comme ça. Utilisez une feuille de calcul Excel pour le formulaire. Ensuite, faites un button de command avec l'événement suivant en cliquant sur: 

'"cmdbtn1" is the name you assign your command button. Private Sub cmdbtn1_Click() Dim appExcel As Excel.Application Dim wbook As Excel.Workbook Dim wsheet As Excel.Worksheet Set appExcel = New Excel.Application appExcel.Visible = True Set wbook = appExcel.Workbooks.Open("C:\PathToYourDocument\YourSpreadsheet.xlsx") '"YourSpreadsheet" is the name of the actual sheet in your workbook. Set wsheet = wbook.Worksheets("YourSpreadsheet") With wsheet 'The numbers next to ".Cells(" correspond to locations on your spreadsheet. A1=(1, 1), B1=(1,2), A2=(2, 1) .Cells(10, 1).Value = txtThing1 .Cells(10, 2).Value = txtThing2 'This is how you combine multiple cell in excel into one Access field. .Cells(10, 3).Value = txtThing3 + " " + txtThing4 + " " + txtThing5 + " " + Thing5 End With End Sub