Pergunta : Erro da inserção de VBA

Olá! peritos,

I am using a linha de código abaixo para introduzir registros em uma tabela. Todas as palavras jorram até que nós batamos o o'connor do sobrenome, a seguir nós começ o erro de sintaxe 3075, im supor seu a vírgula que causa um problema, assim que como pode mim começ em torno deste?

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

Thanks,
Dean class= do

Resposta : Erro da inserção de VBA

Manter alternativamente a chamada do API na parte superior como antes e usá-la:

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 secundários ()
Itms não ofuscantes como o objeto
Itm não ofuscante como o objeto
Sh não ofuscante como o objeto
ATT não ofuscante como o objeto
objFSO não ofuscante como o objeto
objTempFolder não ofuscante como o objeto
Dlg não ofuscante como FileDialog
xlApp não ofuscante como o objeto
xlWB não ofuscante como o objeto
xlWS não ofuscante como o objeto
 
    Ajustar itms = Application.ActiveExplorer.Selection
 
    'No resumo do erro em seguida
    Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
    Ajustar o objTempFolder = o objFSO.GetSpecialFolder (2)
    Ajustar o xlApp = o CreateObject (“excel.application”)
    Para cada itm nos itms
        Para cada ATT no itm. Acessórios
            Selecionar o caso LCase (direito (ATT. Nome de arquivo, Len (ATT. Nome de arquivo) - InStrRev (ATT. Nome de arquivo, “.")))
            Caso “xls”
                objTempFolder de att.SaveAsFile & “\” & ATT. Nome de arquivo
                objTempFolder de xlApp.workbooks.Open & “\” & ATT. Nome de arquivo
                Para cada xlWS em xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Em seguida
                xlApp.workbooks (1). Falso próximo
            Caso “xlsm”
                objTempFolder de att.SaveAsFile & “\” & ATT. Nome de arquivo
                objTempFolder de xlApp.workbooks.Open & “\” & ATT. Nome de arquivo
                Para cada xlWS em xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Em seguida
                xlApp.workbooks (1). Falso próximo
            Caso “doc”
                objTempFolder de att.SaveAsFile & “\” & ATT. Nome de arquivo
                ShellExecute 0&, “cópia”, objTempFolder &” \ “& ATT. Nome de arquivo, 0&, 0&, 0&
            Caso “pdf”
                objTempFolder de att.SaveAsFile & “\” & ATT. Nome de arquivo
                ShellExecute 0&, “cópia”, objTempFolder &” \ “& ATT. Nome de arquivo, 0&, 0&, 0&
            Extremidade seleta
        Em seguida
    Em seguida
    xlApp.Quit
Submarino da extremidade
Outras soluções  
 
programming4us programming4us