Thema Datum  Von Nutzer Rating
Antwort
26.05.2014 15:11:58 VBA02
NotSolved
Blau mit vba auf sharepoint daten drauf laden
 26.05.2014 22:54:32 VBA02
NotSolved

Ansicht des Beitrags:
Von:
VBA02		 Datum:
26.05.2014 22:54:32		 Views:
827		 Rating:
     
Antwort:
  Ja
Thema:
mit vba auf sharepoint daten drauf laden
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ErstellePDF()
 
    Dim SHEET As Worksheet
    Dim wks As Worksheet
    Dim datName As String
    Dim datNamePDF As String
 
     
     
    Application.DisplayAlerts = False
     
 
    datName = Worksheets("Tabelle1").Range("ZA1").Value & " " & ".xlsm"
    datNamePDF = Worksheets("Tabelle1").Range("ZA1").Value & " " & ".pdf"
?
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
    ActiveWorkbook.SaveAs Filename:="H:\Programm\Verknüpfung\" & datName
     
    Application.Quit
     
    Worksheets("Tabelle1").PageSetup.PrintArea = "$A$1:$Z$400"
     
    With ActiveSheet.PageSetup
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Orientation = xlLandscape
        .FitToPagesWide = 1
    End With
     
    With ActiveSheet.HPageBreaks
        .Add Before:=Worksheets("Tabelle1").Range("A50")
        .Add Before:=Worksheets("Tabelle1").Range("A100")
        .Add Before:=Worksheets("Tabelle1").Range("A150")
        .Add Before:=Worksheets("Tabelle1").Range("A200")
        .Add Before:=Worksheets("Tabelle1").Range("A250")
        .Add Before:=Worksheets("Tabelle1").Range("A300")
    End With
     
    ActiveWorkbook.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\Neuer Ordner\" & datNamePDF, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
     
    ActiveWorkbook.Close
     
     
End Sub

 

Ich habe nun diesen Code, hier werden die Dateien in einem Ordner abgespeichert. Das selbe spielchen soll nun auf Sharepoint (Online) gespeichert werden.

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.05.2014 15:11:58 VBA02
NotSolved
Blau mit vba auf sharepoint daten drauf laden
 26.05.2014 22:54:32 VBA02
NotSolved