Cuestión : Error del parte movible de VBA

Hola expertos,

I usar la línea de código abajo para insertar expedientes en una tabla. ¿Todas las palabras manan hasta que golpeemos el o'connor del apellido, después nosotros conseguir el error de sintaxis 3075, im si se asume que su la coma que causa un problema, así que cómo puede yo conseguir alrededor de esto? ¡

d.Execute “en los valores de TblStudentProgress ([PSN], [CourseCode], [Forename], [Surname]) (“” y r! ¡S_STUDENTREFERENCE y “”, ““y r! ¡M_REFERENCE y””, ““y r! ¡P_FORENAMES y””, ““y r! P_SURNAME y” ") “

Thanks,
Dean class= del

Respuesta : Error del parte movible de VBA

Guardar alternativo la llamada del API en la tapa como antes y utilizarla:

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 secundarios ()
Itms déviles como objeto
Itm dévil como objeto
Sh dévil como objeto
Att dévil como objeto
objFSO dévil como objeto
objTempFolder dévil como objeto
Dlg dévil como FileDialog
xlApp dévil como objeto
xlWB dévil como objeto
xlWS dévil como objeto
 
    Fijar los itms = Application.ActiveExplorer.Selection
 
    'En curriculum vitae del error después
    Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
    Fijar el objTempFolder = objFSO.GetSpecialFolder (2)
    Fijar el xlApp = CreateObject (“excel.application”)
    Para cada itm en itms
        Para cada att en itm. Accesorios
            Seleccionar el caso LCase (derecho (att. Nombre de fichero, Len (att. Nombre de fichero) - InStrRev (att. Nombre de fichero, “.")))
            Caso “xls”
                objTempFolder de att.SaveAsFile y “\” y att. Nombre de fichero
                objTempFolder de xlApp.workbooks.Open y “\” y att. Nombre de fichero
                Para cada xlWS en xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Después
                xlApp.workbooks (1).Close falso
            Caso “xlsm”
                objTempFolder de att.SaveAsFile y “\” y att. Nombre de fichero
                objTempFolder de xlApp.workbooks.Open y “\” y att. Nombre de fichero
                Para cada xlWS en xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Después
                xlApp.workbooks (1).Close falso
            Caso “doc.”
                objTempFolder de att.SaveAsFile y “\” y att. Nombre de fichero
                ShellExecute 0&, “impresión”, objTempFolder y” \ “y att. Nombre de fichero, 0&, 0&, 0&
            Caso “pdf”
                objTempFolder de att.SaveAsFile y “\” y att. Nombre de fichero
                ShellExecute 0&, “impresión”, objTempFolder y” \ “y att. Nombre de fichero, 0&, 0&, 0&
            Extremo selecto
        Después
    Después
    xlApp.Quit
Submarino del extremo
Otras soluciones  
 
programming4us programming4us