外部VBA(例: ExcelのVBA)からOutlookを操作すると「アプリケーション定義またはオブジェクト定義のエラーです」が発生するという相談を受けました。 調べてみたところ、インスペクター オブジェクトのWordEditorプロパティに値が設定されていないことが判明。 実行時エラー '287' アプリケーション定義またはオブジェクト定義のエラーです 事象が発生する環境においては、次のレジストリ値が0(自動的に拒否する)になっており、これを1か2に変更すると問題が解消することがわかりました。 HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\office\16. 0\outlook\security PromptOOMAddressInformationAccess 0: 自動的に拒否する 1: ユーザーに確認する (規定値) 2: 自動的に承認する ■情報源 グループポリシーでは次の設定によってこのレジストリ値を構成できます。 ユーザーの構成\ポリシー\管理用テンプレート\Microsoft Outlook 2016\セキュリティ\セキュリティ フォーム設定\プログラムによるセキュリティ アドレス帳にアクセスするときのOutlookオブジェクト モデルに関する確認について構成する 設定値の選択肢は次の通りです。 なお、1(ユーザーに確認する)の場合は次のダイアログボックスが表示され、「許可」が選択されると問題無くマクロが動作します。
お世話になります。 現在、ACCESS2003形式で作成したシステムをACCESS2010でも問題なく使用可能か検証作業を行っております。 その際、ACCESS側からEXCELファイルを展開し、内容を編集/保存する処理の検証を行った所、 ACCESS2003では発生しなかったエラーが発生しました。 原因箇所を特定しようとデバッグモードのステップ実行を行ったのですが、 ステップ実行を行うと問題なく処理が通ってしまい原因究明に至れませんでした。 いろいろと試行錯誤して検証したところ、 下記のようにADODBを使用して取得したレコードセットの値を直接セルに設定しようとすると発生するようです。 ちなみにエクセル側には、保護設定等は一切かけていません。 対策としては、CSTR関数等で型変換をかけることでとりあえず動作するようです。 同様の現象が起きている方はいらっしゃいますでしょうか? デバッグモードでは通過するので、どうも腑に落ちません。 よろしくお願い致します。 (追記) 投稿後にさらに検証を行っていたのですが、 下記コードに該当する場合でも、エラーになる場合とならない場合があるようです。 セル側の書式設定等が影響しているのかと思い、書式設定をコピーしてみても結果が一致しません… --------------------------------------------- < コード(簡略化してあります) > ------------------------ Dim WS As sheet Dim RS As New cordset Dim Mycn As New nnection Set Mycn = nnection SQL文, Mycn, adOpenStatic, adLockReadOnly (行番号, 列番号) = RS! 取得した列名 ←ココで発生 ------------------------------------------------------------------------------------------------------------- --------------------------------------------- < エラー番号/エラー名 > ------------------------------- エラー番号 : 1004 エラー内容 : アプリケーション定義またはオブジェクト定義のエラーです。 編集済み 2013年12月9日 23:54
EXCEL VBA アプリケーション定義またはオブジェクト定義のエラーです。 下のコードを実行すると、「アプリケーション定義またはオブジェクト定義のエラーです。」の エラーが発生します。 原因がわからず、困っています。どなたか、原因のわかるかた、ご教示くださいませ。 tivate Wk_Keisan_RowCnt = ("AAA")(1048576, 2)(xlUp) ちなみに、("AAA")は存在します。 止まるのは2行目です。 こんにちは。 Excel2007以上だとOKですよ。 Excel2003以前のバージョンで行おうとしていませんか? 何も入力されていない列でCtrl+↓を押して見てください。 最終行まで飛ぶと思います。 左の行数が65536とかになっていませんか? だとすれば、Cells(1048576, 2)(xlUp). Rowでエラーになります。 行数が1048576も無いわけですから。 こういう場合は、通常下記のようにします。 Sub Saple1() Wk_Keisan_RowCnt = ("AAA")(, 2)(xlUp) MsgBox Wk_Keisan_RowCnt End Sub Excel2003でも2007以降でもOKなはずです。 Cells(, 2)のuntは Excel2007以降であれば、nnasunaonさん のコードのように、1048576がかえります。 Excel2003以前であれば、65536が かえります。 その他の回答(2件) 実際のシート名はAAAではなくAAAとか? API申請データ一覧の画面を終了しようとすると、「アプリケーション定義またはオブジェクト定義のエラーです。」というエラーが表示される – 「台帳」サポートページ. nnasunaonさん、こんにちは。 使っているEXCEL のVerが2010でも、開いたファイルが2003以前の形式(拡張子が * のファイル)では、シート下端は65536になります。 この点はいかがですか? もしビンゴでしたら、一度xlsx形式で保存・終了して再度開き直すか、blues_hideさん指摘のコードに変更されるか、どちらかの対処が必要です。 ご指摘の通りの原因でした。 自分では原因がわからなく困っていたので助かりました。 本当にありがとうございました!
クイック アクセス 質問 下記のコードが一回目はうまく機能したのですが、それ以降エラーが出るようになってしまいました。(エラー: 400 ) デバッグしようと F 8でステップインすると sheets("DDT") sheets() で実行時エラー '1004' :アプリケーション定義またはオブジェクト定義のエラーです。 と表示されました。 Sub DDT集計() Dim Wb As Workbook Dim myPath As String Dim fname As String Dim bk_name As String Dim dot_pos As Long Application. DisplayAlerts = False With ThisWorkbook myPath = & "\" fname = Dir(myPath & "*") Do While fname <> "" If <> fname Then Set Wb = (fname) bk_name = dot_pos = InStrRev(, ". "). Worksheets("DDT") = Left(bk_name, dot_pos - 1) End If fname = Dir() Loop End With End Sub
前提 フォルダ内に、複数のエクセルブック(被験者の人数分)があります。 それらのブックを1つのブックにまとめるコードを書きました。 例えば、 フォルダ内全ブックのSheet1を、複写先のSheet1に フォルダ内全ブックのSheet2を、複写先のSheet2に まとめるものです 色々調べて まとめること自体は一応できました。 ブック名に関する処理を追加しようとしたときに、皆様の お知恵を拝借できればありがたいと思いました。 ブック名 フォルダ内のブック名には、 実験条件(たとえば測定したのが室内か野外か)と、 2桁の被験者ID番号 の情報が含まれています 野外で測定した被験者12番のブックなら、 とつけます。 実現したいこと・助言を欲しいこと 1. ブック名を切り分けて、A列とB列に記入する というブック名なら yagaiと12を切り分けて、yagaiをA列に、12をB列の該当行に空白なく記入する 2.同じファイルを何度も処理しないようにする これもブック名を使ってチェックすればいいのかなと思いますが、具体策が思いつかない。 3.ブック名に関する処理以外も含めて、もっと良い書き方があれば助言を得たい。 発生している問題・エラーメッセージ 1. や2.の処理をする前段階として、ブック名を取得して、A列を埋めようとしたときに 上手くいきませんでした。 コードを実行すると以下のエラーメッセージが表示されます。 アプリケーション定義またはオブジェクト定義のエラーです 該当のソースコード Option Explicit Sub importData() Dim fso As FileSystemObject Set fso = New FileSystemObject Dim f As File For Each f In tFolder( & "\data") With () Dim bkName As String bkName = Dim i As Long For i = 1 To With. Worksheets( "Sheet" & i) Dim wsResult As Worksheet Set wsResult = sheets( "Sheet" & i) Dim LastRow As Long LastRow = (, 3). End (xlUp). (LastRow + 1, 3) Dim LastRow2 As Long LastRow2 = (, 2).
このページはNPO法人ピルコンが当事者団体のアドバイスのもと、 非営利で制作・運営しています。若い世代に正確な性の知識を伝える活動は、みなさまからのご寄付により運営が成り立っています。 もし、サイトの内容があなたにとって「知れてよかった」と感じるものでしたら、ぜひご支援をお願いします。 >>ピルコンの活動を支援する もし本ページに掲載している内容に関して、悩みや相談したいこと、もっと知りたいことがある方は、 相談したい方へ をご覧ください。
どんなに余裕のある男性でも、好きな人を取られそうだと感じると焦りだします。表立って態度には出さないけれど、その内心はヒヤヒヤしている場合も。特に男性が、好きな人を取られそうと感じて焦るタイミングを紹介します。 1. 好きな車の「男女の違い」(1) みんなが好きな車について～男性編～ | マイナビニュース. 他の男性と楽しそうに話しているとき 好きな女性が他の男性と楽しそうに話しているのを見て、焦らない男性はほぼいないでしょう。「付き合ってるのかな…」「もしかして好きなのかな…」と、基本的にはネガティブなイメージが頭を駆け巡ります。なかには「何でそんなに楽しそうなんだよ…!」と嫉妬の炎が燃え上がる人も。 目の前で親しげに話している姿を見る以外にも、他の男性と連絡を取っている、一緒に出掛ける、物を貸し借りしていると知ったときも「このままじゃ他の男に取られてしまうかもい…」と焦りを感じ始めます。女性が思っているよりも男性は独占欲が強いので、自分以外の男性との繋がりを感じると一気に気持ちが動き出してしまうのです。 ただ、嫉妬させるために他の男性と楽しそうにして見せるのは、計算高さを見破られたり、「もう脈はないかも…」と誤解を招く可能性もあるので、注意してくださいね! 2. ライバルの存在を知ったとき 「あの子が好きなんだよね」と他の男性から自分と同じ思いを聞いたとき、男性はたまらなく不安になります。もしアプローチを受けて、自分の好きな子がその男を好きになってしまったら…そう考えるだけで「なんとかしないと!」「先を越されるかもしれない!」という焦りの気持ちでいっぱいになります。 実際、自分ではそこまでの好意を自覚していなくても、他の男性からの言葉を聞いて改めて気づく…といったパターンも多いです。 他の男性と親しくしているぐらいなら「もしかしたらただの友達かもしれない…」「自分にもまだチャンスはあるかもしれない…」と思えますが、好きな子に対して他の男性が好意を抱いているとなれば話は違います。特にライバルの男性が自分よりもイケメンであったり、仕事ができたり、周囲から信頼されていたりと、強力な存在であればあるほど焦りも強くなります。 3. 自分を理解してくれたとき 自分のことを理解してくれる存在は、誰でも大切にしたいと思うものですよね。それは男性も同じで、ましてそれが自分の好きな人だったらその思いはより大きくなるでしょう。「こんなに自分をわかってくれる女性はいない」と思い、誰にも取られたくない、ずっと一緒にいてほしいと思う気持ちが強くなります。 そのため、束縛が激しくなったり執着し始めたりと、独占欲をあらわにする場合があります。また、相手の女性にとって自分が一番でないと嫌だと思ったり、特別でありたいと態度に焦りが出たりするようにもなるでしょう。特に自分のコンプレックスや悩み、仕事に対する姿勢に理解を示すと、男性は「わかってくれている」と感じやすくなるので、試してみてくださいね。 男性にとって他の男性の存在は大きい 男性は好きな人に他の男性の存在を感じると焦りだします。それまでの余裕な態度は消え、話しかける回数が増えたりデートに誘ってきたりと、自分に気を引こうと頑張ります。少し奥手な男性なら、視線を送る回数が増えるなどちょっとしたことですが、自分と関わる出来事が増えていくので、よくチェックしてみてくださいね。男性が焦りだしたら恋が動くタイミングです。チャンスはきっちりと掴んでいきましょう!
0%) 5位「機能面」(44. 6%) 6位「乗り心地」(42. 1%) 7位「色」(39. 9%) 8位「安全性能」(39. 4%) 9位「その他」(2. 2%) → 自動車購入時に重視する点、価格、燃費に続き「ボディタイプ」がランクイン Q. 最も好きな車のボディタイプを教えてください 1位「軽自動車」(20. 1%) 2位「SUV」(19. 0%) 2位「コンパクトカー」(19. 0%) 4位「ミニバン」(18. 5%) 5位「セダン」(11. 「え？男なのに女が好きなの？」と言われる世界を漫画にしてみたら…. 6%) 6位「スポーツカー」(10. 7%) 7位「その他」(1. 1%) 車を選ぶ際に重視する点を聞いたところ、1位は「価格」で72. 5%と、数多くの人がチェックするポイントとなっている。2位「燃費」(62. 0%)、3位「ボディタイプ」(56. 5%)、4位「メーカー」(51. 0%)と続くが、これらもいずれも5割以上の人が重視。以下も、5位「機能面」(44. 6%)から8位「安全性能」(39. 4%)まで、4割程度の人が意識している。 最も好きな車のボディタイプは、1位「軽自動車」(20. 1%)、2位「SUV」「コンパクトカー」(各19. 0%)、4位「ミニバン」(18. 5%)までが非常に僅差で並んだ。少し間を空けて、5位「セダン」(11. 6%)、6位「スポーツカー」(10. 7%)と続く。 ボディタイプの1番人気には、価格帯がおさえられている軽自動車がランクインする結果となっており、車の購入時に重視する点と好きなボディタイプがリンクしていることがうかがえる。 そこで、「好きなボディタイプ」について、具体的な理由をみていこう。 男性の車の選び方 Q.
【この記事も読まれています】