誕生日を Excel から Outlook カレンダーにインポートする方法
ワークシートに誕生日情報の長いリストがある場合、これらの誕生日をイベントとして Outlook カレンダーにインポートする必要があります。 いくつかの簡単な方法を使用して、このタスクをどのように処理できますか?
VBA コードを使用して Excel から Outlook カレンダーに誕生日をインポートする
通常、誕生日を Outlook カレンダーに直接インポートする方法はありません。ここでは、この問題を解決する VBA コードを作成します。次の手順に従ってください。
1. Outlook にインポートする誕生日を含むワークシートを開き、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。
VBA コード: 誕生日を Outlook カレンダーにインポートする
Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
With xAppointmentItem
.Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
.AllDayEvent = True
.Start = xRng.Cells(xRow, 2)
Set xRecurrencePattern = .GetRecurrencePattern
xRecurrencePattern.RecurrenceType = olRecursYearly
.Save
End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub
3。 まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック 工具 > リファレンス. 飛び出した中で 参照– VBAProject ダイアログボックス、チェック Microsoft Outlook16.0オブジェクトライブラリ オプションフォーム 利用可能な参考文献 リストボックス、スクリーンショットを参照:
4。 次に、をクリックします OK このダイアログ ボックスを閉じます。 今、押してください F5 キーを押してこのコードを実行すると、プロンプト ボックスが表示されます。名前と誕生日の列を選択してください。スクリーンショットを参照してください。
5。 次に、をクリックします OK ボタンをクリックすると、誕生日が一度に Outlook カレンダーにインポートされます。Outlook を起動して結果を表示できます。スクリーンショットを参照してください。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。




