Office関連

SkyDriveの同期フォルダーのパスを取得するマクロ

前回の記事ではSkyDriveの同期フォルダーのパスを取得するWordマクロを紹介しましたが、今回はWord以外でも使える同様のマクロを紹介します。

Option Explicit

Public Sub Sample()
  Dim s As String
  
  s = "" '初期化
  s = GetSkyDriveUserFolder
  If Len(Trim(s)) < 1 Then
    MsgBox "SkyDriveの同期フォルダーのパスを取得できません。", vbCritical + vbSystemModal
  Else
    MsgBox "SkyDriveの同期フォルダーのパスは以下になります。" & vbCrLf & vbCrLf & s, vbInformation + vbSystemModal
  End If
End Sub

Private Function GetSkyDriveUserFolder() As String
'SkyDrive デスクトップ アプリの同期フォルダーのパス取得
  Dim ret As String
  
  ret = "" '初期化
  On Error Resume Next
  ret = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\SkyDrive\UserFolder")
  On Error GoTo 0
  GetSkyDriveUserFolder = ret
End Function

上記マクロではWshShellオブジェクトのRegReadメソッドを使用しているので、前回の記事で使用したPrivateProfileStringプロパティと違って汎用性が高くなっています。

SkyDriveの同期フォルダーのパスを取得するWordマクロ前のページ

PowerPoint 2013でYouTubeの動画を挿入する。次のページ

関連記事

  1. Excel

    指定したセル範囲をUTF-8やEUC-JP等のテキストファイルとして出力するExcelマクロ

    ExcelファイルをUTF-8のテキストファイルで出力する必要があった…

  2. Office関連

    Microsoft Graph ExplorerがMicrosoft アカウント(MSA)に対応しま…

    Azure AD v2.0 エンドポイントによって、個人用Micros…

  3. Office関連

    Office 2013 カスタマープレビュー版の「Spy Utility」

    たまたま見つけたWebページ「Office2013のデバッグ用ツールが…

  4. Office関連

    指定したフォルダ内の画像ファイルを一括挿入するPowerPointマクロ

    大量の画像ファイルを1枚/1スライドで挿入する必要があり、…

  5. アイコン一覧

    Office 365アイコン(imageMso)一覧(A)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  6. Office関連

    「個人用テンプレートの既定の場所」を設定するWordマクロ

    前回の記事で、Word 2013で個人用テンプレート(カスタム テンプ…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP