Excel 2010 でこの Web スクレイピング VBA コードを使用して、Web ページからタイトルを削除しています。コードの実行後にタイトルを値として貼り付けたい。
これが私のコードです:
Function GetTitleFromURL(sURL As String)
Dim wb As Object
Dim doc As Object
Set wb = CreateObject("InternetExplorer.Application")
wb.Navigate sURL
While wb.Busy
DoEvents
Wend
GetTitleFromURL = wb.Document.Title
wb.Quit
Set wb = Nothing
'trying to paste as value after get title
'Application.CutCopyMode = False
' Selection.Copy
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
End Function
ご協力いただきありがとうございます!