この記事では、Excel VBAを利用してジョブポータルから新しい求人情報を自動で取得する方法について詳しく説明します。初心者でも理解しやすいように具体的なコード例とその解説、応用例を含めています。
Excel VBAを使用して求人情報を取得する基本的な考え方
VBAはExcelの内部に組み込まれているプログラミング言語です。これを使って、ジョブポータルなどのWebサイトから情報を取得するには、Webクエリや外部のライブラリを使用する必要があります。
基本コード
今回は、シンプルなジョブポータルからの新しい求人情報の取得方法を示します。
Sub GetJobInfo()
Dim LastRow As Long
Dim WebUrl As String
WebUrl = "https://example-job-portal.com/new-jobs"
With ThisWorkbook.Worksheets("Sheet1").QueryTables.Add(Connection:="URL;" & WebUrl, Destination:=Range("A1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
LastRow = ThisWorkbook.Worksheets("Sheet1").Cells(ThisWorkbook.Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row
End Sub
コードの解説
このコードは、指定したジョブポータルのURLから新しい求人情報を取得し、ExcelのSheet1にその情報を表示します。
– **WebUrl**: 取得したいジョブポータルのURLを指定します。
– **QueryTables.Add**: WebUrlの情報をExcelに取得するためのメソッドです。
– **.BackgroundQuery**: バックグラウンドでのクエリを許可するかどうかを設定します。今回は即時に情報を取得したいので、Trueに設定しています。
– **LastRow**: Sheet1の最後の行番号を取得します。この情報は後の処理で使用することができます。
応用例
1. 求人情報の中から特定のキーワードを持つものだけを取得する
Sub GetSpecificJobInfo()
Dim LastRow As Long, i As Long
Dim WebUrl As String, Keyword As String
Keyword = "プログラマー"
WebUrl = "https://example-job-portal.com/new-jobs"
With ThisWorkbook.Worksheets("Sheet1").QueryTables.Add(Connection:="URL;" & WebUrl, Destination:=Range("A1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
LastRow = ThisWorkbook.Worksheets("Sheet1").Cells(ThisWorkbook.Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1
If InStr(ThisWorkbook.Worksheets("Sheet1").Cells(i, 1).Value, Keyword) = 0 Then
ThisWorkbook.Worksheets("Sheet1").Rows(i).Delete
End If
Next i
End Sub
解説
このコードは、指定したキーワード「プログラマー」を含む求人情報だけを取得します。取得した後、キーワードを含まない行は削除されます。
2. 求人情報を日付順にソートする
Sub SortJobInfoByDate()
Dim LastRow As Long
Dim WebUrl As String
WebUrl = "https://example-job-portal.com/new-jobs"
With ThisWorkbook.Worksheets("Sheet1").QueryTables.Add(Connection:="URL;" & WebUrl, Destination:=Range("A1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
LastRow = ThisWorkbook.Worksheets("Sheet1").Cells(ThisWorkbook.Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row
With ThisWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:B" & LastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
解説
このコードは、取得した求人情報を日付順にソートします。
3. 求人情報の取得間隔を設定する
Sub GetJobInfoWithInterval()
Dim WebUrl As String
WebUrl = "https://example-job-portal.com/new-jobs"
Application.OnTime Now + TimeValue("01:00:00"), "GetJobInfo"
End Sub
解説
このコードは、1時間ごとに指定したジョブポータルからの新しい求人情報を自動的に取得します。
まとめ
Excel VBAを使用してジョブポータルからの新しい求人情報の自動取得は、定期的な求人チェック
やデータの解析に非常に便利です。上述の基本コードと応用例を参考に、独自のニーズに合わせてカスタマイズしてみてください。
コメント