Astuces Excel
  1. Astuces Excel
  3. Accès exécutant Excel pour le text vers les colonnes (boucle plusieurs fois)
Intereting Posts
VBA Keydown Problems Numéro à copyr de la cellule avec le même format de numéro et le montrer comme une label pour une forme sans modification du format de numéro Comment convertir les valeurs de lignes en valeurs coulmn dans Excel Ajustez toutes les feuilles de travail avec la même disposition Problème VBA – Essayer de rendre multiples cellules obligatoires pour save un document Excel Modèle de données Microsoft Power BI Designer à Excel ou PowerPivot OSError: Aucune bibliothèque appropriée trouvée pour xls Couper et coller toute la rangée uniquement si correspond aux critères Recherche Excel pour les references de cellules dans les formules Index / match avec deux critères de toute façon pour get le deuxième set de données en utilisant des identifiants uniques? Protéger la feuille de calcul Excel avec plusieurs variables de protection VBA Faites glisser Vlookup Vérification des references. Trouvez, Match, Conbination Désactiver la sélection complète de la feuille après la pâte Vlookup – seulement la cellule de return avec le text

Accès exécutant Excel pour le text vers les colonnes (boucle plusieurs fois)

J'ai un problème avec mon code, j'ai besoin d'importer des données à plusieurs resockets, mais j'ai d'abord besoin de modifier correctement datatables dans les colonnes délimitées.

Fondamentalement, lorsque j'entre dans le programme, le programme peut faire les colonnes pour le text UNE fois. Mais après cela, il échoue à convertir même si ces files text sont tous formatés de la même manière.

Exemples de données: comme vous pouvez le voir, des délimiteurs (= et,) 

"7",="AR",="",="",="720325438",="491.45",="0.00",="0.00",="0.00",="0.00" "7",="AR",="",="",="720344843",="40.00",="0.00",="0.00",="0.00",="0.00"

code: 

 Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet For intCurrentfileNumber = 1 To intNumOfFiles strCurrentFolderName = varFileArray(intCurrentfileNumber, 0) strCurrentFileName = varFileArray(intCurrentfileNumber, 1) Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.Workbooks.Open strCurrentFolderName & "\" & strCurrentFileName Set xlSheet = xlApp.Worksheets(1) xlSheet.("A1", Range("A" & Rows.Count).End(xlUp)).TextToColumns _ Destination:=Range("A1"), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, _ Tab:=False, _ Semicolon:=False, _ Comma:=True, _ Space:=False, _ Other:=True, _ OtherChar:="=", _ TrailingMinusNumbers:=True ActiveWorkbook.Close (True) xlApp.Quit Set xlApp = Nothing Set xlSheet = Nothing DoCmd.TransferText acImportDelim, "Import Specification", "Staging", strCurrentFolderName & "\" & strCurrentFileName, True Next intCurrentFileNumber

Eh bien, je ne suis pas sûr de savoir où était mon erreur – je pense que l'erreur est quelque part ici – en fait, après la fermeture et la réouverture, Access m'a commencé à me donner une erreur et à ne pas me laisser l'exécuter. 

 xlSheet.("A1", Range("A" & Rows.Count).End(xlUp)).TextToColumns _

@Andy G – Merci pour la suggestion de ne pas fermer / relancer l'application Excel – cela pourrait aussi bien être une partie de celle-ci. Cependant, c'est beaucoup plus d'un "ghetto" de l'exécuter – mais il semble fonctionner tout simplement bien. Il ouvre tous les texts d'import, ajuste les textToColumns en conséquence et les importe avec succès.

Si quelqu'un a une façon plus propre de le faire, n'hésitez pas à vous entendre. Merci! 

 xlSheet.Columns("A:A").Select Selection.TextToColumns , _ Destination:=Range("A1"), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, _ Tab:=False, _ Semicolon:=False, _ Comma:=True, _ Space:=False, _ Other:=True, _ OtherChar:="=", _ TrailingMinusNumbers:=True