Vraag : VBA tussenvoegselfout

Hallo Deskundigen,

I am de lijn van code gebruiken hieronder om verslagen in een lijst op te nemen. Alle woorden goed tot wij achternaamo'connor raken, dan krijgen wij syntaxisfout 3075, im zijn veronderstellen de komma veroorzakend een probleem, zodat hoe ik rond dit kan krijgen? />
d.Execute in ([PSN], [CourseCode], [Forename], [Surname]) waarden TblStudentProgress („“ & r! S_STUDENTREFERENCE & „“, „„& r! M_REFERENCE &““, „„& r! P_FORENAMES &““, „„& r! P_SURNAME &““) „

Thanks,
Dean

Antwoord : VBA tussenvoegselfout

Houd alternatief de API vraag bij de bovenkant zoals vóór en gebruik:

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:

Sub printExcelAttachments ()
Schemerige itms als Voorwerp
Schemerige itm als Voorwerp
Schemerige sh als Voorwerp
Schemerige att als Voorwerp
Schemerige objFSO als Voorwerp
Schemerige objTempFolder als Voorwerp
Schemerige dlg als FileDialog
Schemerige xlApp als Voorwerp
Schemerige xlWB als Voorwerp
Schemerige xlWS als Voorwerp
 
    Reeks itms = Application.ActiveExplorer.Selection
 
    'Op Fout hervat daarna
    Plaats objFSO = CreateObject („Scripting.FileSystemObject“)
    Plaats objTempFolder = objFSO.GetSpecialFolder (2)
    Plaats xlApp = CreateObject („excel.application“)
    Voor Elke itm in itms
        Voor Elke att in itm. Gehechtheid
            Selecteer Geval Juiste LCase ((att. Filename, Len (att. Filename) - InStrRev (att. Filename, „. “)))
            Geval „xls“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „xlsm“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „doc.“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                ShellExecute 0&, „Druk“, objTempFolder &“ \ „& att. Filename, 0&, 0&, 0&
            Geval „pdf“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                ShellExecute 0&, „Druk“, objTempFolder &“ \ „& att. Filename, 0&, 0&, 0&
            Uitgezocht eind
        Daarna
    Daarna
    xlApp.Quit
Sub van het eind
Andere oplossingen  
 
programming4us programming4us