Details for kishor0025

Hi Andrew,

I'm very impressed with your teaching style. I want to learn these below topics from you. Can you please upload 2 videos on these topics?

001) How to auto fill Web Form using Excel Worksheet Data through VBA? Once it fills up the entire Form, the Submit Button (in Web Form) will be clicked automatically to store the Data in Server. And, then proceed to the next Row of Excel Data. This is how the entire procedure goes on till it reaches the Last Cell in Worksheet.

002) How to convert Word to PDF, PDF to Word or Excel to PDF and PDF to Excel using VBA?

Dear Andrew,

I'm a music lover. I have more than 1750 songs in my computer. For taking my learning to next level, I want to have the Name, Author, Album and Title of each and every file of these files; that are kept in my my "D" Drive ("D:\Music\Files..."); through VBA. I wrote a code. But, it only gave me the File Name of these music files. But, I don't know, how will I get the other attributes of these files like their Authors, Albums and Titles. Can you please help me.... I'm attaching my written code in below..
 

Option Explicit

Sub ImportingFileDetails()

On Error Resume Next

Dim FDB As Office.FileDialog
Set FDB = Application.FileDialog(msoFileDialogFolderPicker)

With FDB
.ButtonName = "Select Folder"
.InitialFileName = "Choose Desired Folder"
.InitialView = msoFileDialogViewPreview
.Title = "Get Files' Names"
.Show
End With

Dim SelectedFolder As String
SelectedFolder = FDB.SelectedItems(1)

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject

Dim ChoosenFolder As Scripting.Folder
Set ChoosenFolder = FSO.GetFolder(SelectedFolder)

If ChoosenFolder Is Nothing Then
MsgBox "No Folder is selected"
Exit Sub
Else
Dim FilesUnderChoosenFolder As Scripting.File

Dim SerialNumber As Integer
SerialNumber = 1

Dim i As Integer
i = 5

Dim FilesCountUnderChoosenFolder As Integer
FilesCountUnderChoosenFolder = 0

Range("B5", Range("B5").End(xlDown).Resize(1, 2)).ClearContents

For Each FilesUnderChoosenFolder In ChoosenFolder.Files
ImportFileDetails.Cells(i, 1).Value = SerialNumber
ImportFileDetails.Cells(i, 2).Value = FilesUnderChoosenFolder.Name
ImportFileDetails.Cells(i, 3).Value = FilesUnderChoosenFolder.Attributes("Author")
ImportFileDetails.Cells(i, 4).Value = FilesUnderChoosenFolder.Attributes("Album")
ImportFileDetails.Cells(i, 5).Value = FilesUnderChoosenFolder.Attributes("Title")

SerialNumber = SerialNumber + 1
i = i + 1
FilesCountUnderChoosenFolder = FilesCountUnderChoosenFolder + 1
Next FilesUnderChoosenFolder
End If

Dim FirstBlankRow As Integer

If FilesCountUnderChoosenFolder > 1 Then
FirstBlankRow = Range("A5").Offset(0, 1).End(xlDown).Offset(1, 0).Row
Range("A" & FirstBlankRow).Select
Range(Selection, Selection.End(xlDown)).EntireRow.Delete
ElseIf FilesCountUnderChoosenFolder = 1 Then
FirstBlankRow = Range("A5").Offset(1, 1).Row
Range("A" & FirstBlankRow).Select
Range(Selection, Selection.End(xlDown)).EntireRow.Delete
Else
FirstBlankRow = Range("A5").Offset(1, 1).Row
Range("A" & FirstBlankRow).Select
Range(Selection, Selection.End(xlDown)).EntireRow.Delete
Range("A5").Value = ""
End If

ImportFileDetails.Range("B4").Value = "File Names"
ImportFileDetails.Range("B5").Activate

End Sub

Hi Andrew,

In the video "Excel VBA Part 49 - Downloading Files from Websites", you told, if user uses 32 bit or 64 bit Microsoft Office 2010 or later, then prtsafe API function (1st API Function on this Video) will be effective, but if user uses Microsoft Office prior to 2010 (like Microsoft Office 2003 or 2007), then 2nd API function (which is only for 32 bit version of Microsoft Office) will be effective. My question is, what if someone uses 64 bit version of Microsoft Office 2007 or earlier? Then, is there any of these API Functions useful? Or I've to write any other extra coding to get this function work on correctly? Please reply to my questions Andrew.

Thank you for these wonderful videos. I really owe my career to you and Mike Girvin (Excelisfun). Whatever I'm today, just because two of you. I would rather say that, learning front part of Excel is incomplete without watching the videos of Excelisfun and learning VBA is incomplete without watching your videos. Both of you are doing noble work to make us educated. I regard both of you as my Guru.

Hi Andrew,

I'm Kartick from India. I've learned a lot of things about VBA from your Videos on YouTube. You're absolutely genius. But, recently I've faced a problem. Can you please give a solution on how should I count the number of tables on a certain Webpage? For your information, I tried the below code. But, instead of giving me the count of Total no of Tables on that Webpage, it's giving the count of Total no of Rows of all Tables on that page. Please, Andrew, give me a solution.  I'm counting on you. I'm giving my code below... ------------

Sub Count_Tables_on_a_Webpage ()

Dim IE as SHDocVw.InternetExplorer

Set IE = New ShDocVw.InternetExplorer

IE.Visible = True

IE.Navigate "https://www.wsj.com/market-data/quotes/AAPL/financials/annual/balance-sheet"

Do While IE.ReadyState <> ReadyState_Complete

Loop

Dim Doc As MSHTML.HTMLDocument

Set Doc = IE.Document

Dim TBL as MSHTML.IHTMLElement

Dim TBLs as _ MSHTML.IHTMLElementCollection

Set TBLs = Doc.getElementsbyTagName("Table")

MsgBox TBLs.Length

End Sub