Frage : VBA Einsatzstörung

Hallo Experten,

I morgens using die Linie des Codes unten, zum der Aufzeichnungen in eine Tabelle einzusetzen. Alle Wörter quellen hervor, bis wir das Familienname o'connor schlagen, dann wir Syntaxstörung 3075 erhalten, im, sein das Komma annehmend, das ein Problem, also wie verursacht, kann ich um dieses erhalten?

d.Execute „Einsatz in TblStudentProgress ([PSN], [CourseCode], [Forename], [Surname]) Werte („“ u. r! S_STUDENTREFERENCE u. „“, „„u. r! M_REFERENCE u.““, „„u. r! P_FORENAMES u.““, „„u. r! P_SURNAME u.“ ") „

Thanks,
Dean

Antwort : VBA Einsatzstörung

Den API-Anruf an der Oberseite als vorher wechselweise halten und verwenden:

Chris
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:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

VorprintExcelAttachments ()
Schwache itms als Gegenstand
Schwaches itm als Gegenstand
Schwaches SH als Gegenstand
Schwaches ATT als Gegenstand
Schwaches objFSO als Gegenstand
Schwaches objTempFolder als Gegenstand
Schwaches DLG als FileDialog
Schwaches xlApp als Gegenstand
Schwaches xlWB als Gegenstand
Schwaches xlWS als Gegenstand
 
    Itms = Application.ActiveExplorer.Selection einstellen
 
    'Auf Störungs-Zusammenfassung zunächst
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    objTempFolder = objFSO.GetSpecialFolder einstellen (2)
    xlApp = CreateObject („excel.application“) einstellen
    Für jedes itm in den itms
        Für jedes ATT im itm. Zubehöre
            Fall LCase vorwählen (recht (ATT. Dateiname, Len (ATT. Dateiname) - InStrRev (ATT. Dateiname, „.")))
            Fall „xls“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „xlsm“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „Doc.“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                ShellExecute 0&, „Druck“, objTempFolder u.“ \ „u. ATT. Dateiname, 0&, 0&, 0&
            Fall „pdf“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                ShellExecute 0&, „Druck“, objTempFolder u.“ \ „u. ATT. Dateiname, 0&, 0&, 0&
            Ende auserwählt
        Zunächst
    Zunächst
    xlApp.Quit
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us