class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
|
class= de
aSQL " de " codeSnippet704872 d'id= " de Dim de class= comme corde
Faible strFolder comme corde
Faible strFile comme corde
Faible strTable comme corde
DoCmd.OpenQuery « qryDeleteImported »
Choisir le cas mi (Me.txtFilename, InStrRev (Me.txtFilename, « ."))
Enfermer « .xls »
'Dossier de MsgBox « Excel »
acImport de DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel9, « myImport », Me.txt Fullpath, vrai
Cas « .doc »
MsgBox « dossier de mot »
Cas « .pdf »
Dossier de MsgBox « Adobe »
Cas « .txt »
MsgBox « dossier des textes »
Cas « .csv »
MsgBox « dossier de CSV »
Extrémité choisie
DoCmd.SetWarnings faux
DoCmd.OpenQuery « qryAppendImported »
Signal sonore
MsgBox « vos données a été importé avec succès » et le vbCrLf et le "", vbInformation, des « données importent complet »
DoCmd.Close
|
