#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
