Questione : Errore dell'inserto di VBA

Ciao esperti,

I using la linea di codice qui sotto per inserire le annotazioni in una tabella. Tutte le parole scaturiscono fino a che non colpiamo il o'connor del cognome, quindi noi ottenere l'errore di sintassi 3075, im ammettendo relativo il virgola che causa un problema, in modo da come può io ottenere intorno a questo?

d.Execute “nei valori di TblStudentProgress ([PSN], [CourseCode], [Forename], [Surname]) (“„ & r! S_STUDENTREFERENCE & “„, ““& r! M_REFERENCE &„„, ““& r! P_FORENAMES &„„, ““& r! P_SURNAME &„ ") “

Thanks,
Dean class= del

Risposta : Errore dell'inserto di VBA

Mantenere alternativamente la chiamata di api alla parte superiore come prima ed usare:

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

printExcelAttachments secondari ()
Itms fiochi come oggetto
Itm fioco come oggetto
SH fioco come oggetto
ATT fioca come oggetto
objFSO fioco come oggetto
objTempFolder fioco come oggetto
Dlg fioco come FileDialog
xlApp fioco come oggetto
xlWB fioco come oggetto
xlWS fioco come oggetto
 
    Regolare i itms = Application.ActiveExplorer.Selection
 
    'Sul riassunto di errore dopo
    Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
    Regolare il objTempFolder = objFSO.GetSpecialFolder (2)
    Regolare il xlApp = CreateObject (“excel.application„)
    Per ogni itm nei itms
        Per ogni ATT nel itm. Collegamenti
            Selezionare il caso LCase (di destra (ATT. Nome di schedario, Len (ATT. Nome di schedario) - InStrRev (ATT. Nome di schedario, “.")))
            Caso “xls„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                objTempFolder di xlApp.workbooks.Open & “\„ & ATT. Nome di schedario
                Per ogni xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Dopo
                xlApp.workbooks (1).Close falso
            Caso “xlsm„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                objTempFolder di xlApp.workbooks.Open & “\„ & ATT. Nome di schedario
                Per ogni xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Dopo
                xlApp.workbooks (1).Close falso
            Caso “documento„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                ShellExecute 0&, “stampa„, objTempFolder &„ \ “& ATT. Nome di schedario, 0&, 0&, 0&
            Caso “pdf„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                ShellExecute 0&, “stampa„, objTempFolder &„ \ “& ATT. Nome di schedario, 0&, 0&, 0&
            Estremità prescelta
        Dopo
    Dopo
    xlApp.Quit
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us