Excel vba - simpan sebagai pdf dan vba ftp unggah - unggahan terlihat lucu [duplikat]

Hai, aku benar-benar tidak bisa memikirkan hal ini. Saya memiliki kode di vba yang menyimpan lembar aktif sebagai pdf. Ini berfungsi, pdfnya terlihat bagus! Kemudian kodenya berjalan, membuat skrip dan kemudian mengunggah pdf ke server. Unggahannya juga berfungsi tetapi, ketika saya membuka file di server 99% teksnya tidak ada. Saya telah mencoba mengunggah file secara manual, yang dibuat dari skrip dan berhasil. Jadi apa yang terjadi? Bagaimana skrip ftp bisa menghapus 99% teks dari pdf saat diunggah? Saya juga mencoba untuk tidak menggunakan lembar aktif dan juga menyetel pengatur waktu, jika file belum selesai dibuat. tapi bukan itu masalahnya. Rasanya unggahan convert pdf apakah ini benar? Semoga ada yang punya jawaban bagus.

MEMPERBARUI ! - kode sekarang berfungsi

Berikut kode yang saya gunakan:

 '''create pdf File
ThisWorkbook.Sheets("Course_rates_print1").Select

 ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="E:\Kunder-i-brug\PSC\office-software\rates-now.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False




Application.Wait (Now + TimeValue("00:00:20"))

 ''''''''write script.dat and upload.dat file
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("E:\Kunder-i-brug\PSC\office-software\script.dat", True)
a.writeline "username" 
a.writeline "password"
a.writeline "Binary"
a.writeline "mput E:\Kunder-i-brug\PSC\office-software\rates-now.pdf" 'file to be uploaded
a.writeline "quit"
a.Close

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("E:\Kunder-i-brug\PSC\office-software\upload.bat", True)
a.writeline "ftp -i -s:E:\Kunder-i-brug\PSC\office-software\script.dat 
ftp.server" 'the ftp site
a.Close


dRetVal = Shell("E:\Kunder-i-brug\PSC\office-software\upload.bat", 0) 
'upload the file
 ''''''''''end upload.bat file

Application.ScreenUpdating = True