> .Put_の部分でエラーとなります。Windows のユーザ アカウントを指定していない(空っぽの状態)だからでは?> Dim userName As String(中略)> .userName = userName> .Put_