PDF Converter

#excel #vba #technology
Excel VBA Syllabus
Basic VBA
Lesson 1 Excel Macro Tutorial — How to Write Macros in Excel & Use
Lesson 2 VBA in Excel — What is Visual Basic for Applications, How to Use
Lesson 3 VBA Variables, Data Types Definition & Explanation
Lesson 4 VBA Comparison Operators — Not equal, Less than or Equal to
Lesson 5 VBA Logical Operators — AND, OR, NOT
Lesson 6 VBA IF else condition
Lesson 7 VBA Loop
Lesson 8 VBA custom filter
Lesson 9 VBA file dialog
Lesson 10 VBA worksheet function
Lesson 11 VBA Projects
Lesson 12 VBA Split function
Lesson 13 VBA Active x and form controls
Lesson 14 VBA Userform
Lesson 15 VBA Text function (Example-Replace/Trim/Left/Right/mid/find etc)
Lesson 16 VBA with external data base(Ms Access & SQL Server)
Lesson 17 VBA with Microsoft Outlook
Lesson 18 VBA with Microsoft Power point
Lesson 19 VBA with Microsoft Word
Lesson 20 VBA with Pivot tables
Lesson 21 VBA Interview questions.

Advance VBA
Lesson 22 VBA Array
Lesson 23 VBA UDF function
Lesson 24 VBA Dictonary
Lesson 25 VBA Collection
Lesson 26 VBA Error Handling
Lesson 27 VBA Events
Lesson 28 VBA crawling
Lesson 29 VBA Projects
Lesson 30 VBA Interview questions.

how to convert excel table into pdf file
Sub BrowseFile()

Dim fd As FileDialog
Dim strpath As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.Title = “Select Excel file”
.Filters.Add “Excel File”, “*.xlsx”

If .Show = True Then
strpath = .SelectedItems(1)
End If
End With

Sheet1.Range(“E5”).Value = strpath

End Sub

Sub CopyData()

Dim wkb As Workbook
Dim varData As Variant

Set wkb = Workbooks.Open(Sheet1.Range(“E5”).Value, ReadOnly:=True)

varData = wkb.Sheets(1).Range(“A1”).CurrentRegion.Value

Sheet2.Range(“A1”).Offset(1, 0).ClearContents

Sheet2.Range(“A1”).Resize(UBound(varData, 1), UBound(varData, 2)) = varData

wkb.Close savechanges:=False

Call ConvertDataInto_PDF

End Sub

Sub ConvertDataInto_PDF()
Dim path As String
Dim sh As Worksheet
Dim flpath As String

Set sh = ThisWorkbook.Sheets(“data”)
flpath = “pdf-” & Format(Date, “dd-mm-yy”) & “.pdf”

path = ThisWorkbook.path & “”

sh.ExportAsFixedFormat xlTypePDF, path & flpath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintareas:=False, openAfterPublish:=False

MsgBox “PDF has been exported”, vbInformation

End Sub…(read more)

---

Convert Word 2 PDF: Word to PDF Converter

Convert PowerPoint 2 PDF: PPT to PDF Converter

Convert Excel 2 PDF: Excel to PDF Converter

Convert an Image 2 PDF: Image to PDF Converter

Convert HTML 2 PDF: HTML to PDF Converter

More Tools: PDF Converter

---