J'ai plusieurs fichiers CSV avec le même schéma, et je veux les importer en une seule étape. Une solution pourrait être d'utiliser "l'assistant d'importation", mais je ne peux importer qu'un fichier avec. Oh, et ce serait le mieux de travailler dans msaccess2003. THXToute façon d'importer plusieurs fichiers (csv) à un db Access
la solution la plus simple est de commencer un dos-rapide, changer le répertoire où vous avez vos fichiers et tapez:
type *.csv > allfiles.txt
Si vous le faites souvent, vous pouvez créer un batch-file que vous pouvez doubler -cliquez sur votre bureau
Vous pouvez écrire un petit programme pour l'importation voir http://www.javaworld.com/javaworld/javaqa/2000-09/03-qa-0922-access.html pour Java JDBC conector à msaccess et depuis le fichier d'importation est csv, vous pouvez le faire en peu de temps ...
Il existe d'autres options d'importation pour d'autres langues
et oui l'option de Espo est plus facile si vous avez besoin de le faire qu'une seule fois ou non automatiquement :) –
Si tout ce que vous voulez faire est de conduire l'importation avec une liste de fichiers, vous n'avez pas besoin d'un fichier batch. Vous pouvez obtenir la liste des fichiers en utilisant Dir():
Dim strCSVFileName As String
strCSVFileName = Dir("*.csv")
Do Until strCSVFileName = vbNullString
[import strCSVFileName]
strCSVFileName = Dir()
Loop
Bien sûr, cela suppose que vous faites l'importation à partir d'Access, mais étant donné vos tags, qui est la conséquence logique de votre question.
Ceci est un ancien thread, mais il est apparu lorsque j'ai cherché le problème. Espérons que ce code aide quelqu'un à relever le même défi. Construit/développe sur l'exemple de David-W-Fenton, ci-dessus.
J'ai d'abord importé un fichier en utilisant l'assistant. Importé dans une table nommée "bestTranscripts" et enregistré le modèle d'importation en tant que "BestImport" - puis utilisé ces valeurs dans la commande TransferText.
Function ImportFiles()
On Error Resume Next
Dim cnn As New ADODB.Connection
Dim targetSet As New ADODB.Recordset
Dim sourceDirectoryName As String
Dim sourceFileName As String
sourceDirectoryName = "<path containing files>"
sourceFileName = Dir(sourceDirectoryName & "\*.txt")
Do Until sourceFileName = vbNullString
DoCmd.TransferText acImportDelim, "BestImport", "bestTranscripts", sourceFileName
sourceFileName = Dir()
Loop
End Function
grâce, que ce soit réglé le problème. – misnyo