お世話になります。
下記ソースのようにVBAで「MSXML2.DOMDocument」を使用したいと
思うのですが実行すると
「Dim D As MSXML2.DOMDocument」の箇所で
「コンパイルエラー:ユーザ定義型は定義されていません」
とメッセージがでます。

どのようにすれば「MSXML2.DOMDocument」が使えるのでしょうか?
私は、完全な初心者でありました。何も設定せずに、VBAに下記の
文を入力しました。
解決策と、もし、VBAでDOMを使用する初心者サイトがありましたら
教えて頂ければとおもいます。
よろしくお願いします。

VBAソース--------------------------------------------
Dim D As MSXML2.DOMDocument
Set D = New MSXML2.DOMDocument
D.async = False
If D.Load("C:\SAMPLE.XML") Then
MsgBox "読み込み成功"
Else
MsgBox "読み込み失敗"
End If

このQ&Aに関連する最新のQ&A

A 回答 (1件)

ツール→参照設定→Microsoft XML v6.0にチェックを入れる



#事前にMS XML 6.0が必要。
#Windows XP SP3にMSXML v6 SP2が含まれるようだ
#特にSPが書かれていないが,MSXML v6 SP2とバージョンが同じらしい。
http://www.microsoft.com/downloads/details.aspx? …
オマケ:
http://blogs.msdn.com/xmlteam/archive/2006/10/23 …
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

Q"Xm/XForm.h:そのようなファイル、ディレクトリはありません"って?

X-Windowプログラムで本にあったプログラムをそのまま写して
gcc ファイル名 -lX11 -lXm -lXim -lXt
でコンパイルをしようとしたら
Xm/XForm.h:そのようなファイル、ディレクトリはありません
Xm/XLabel.h:そのようなファイル、ディレクトリはありません
Xm/XPushB.h:そのようなファイル、ディレクトリはありません
Xm/XText.h:そのようなファイル、ディレクトリはありません
Xm/XRowColumun.h:そのようなファイル、ディレクトリはありません
Xm/XCascadeB.h:そのようなファイル、ディレクトリはありません
Xm/XMessageB.h:そのようなファイル、ディレクトリはありません
というメッセージがでてきました。
これをコンパイルさせるにはどうしたらいいのですか?
ちなみに関係があるのかわかりませんがその本はX11R4でプログラムを作成したと書いてありました。
わたしの環境はKondoraで、X11R6というのが入っているようです。
今、プログラムを組むのにコンパイルすら通らないのでまったく進みません。
私はぜんぜん無知の初心者なのでよろしければ詳しく教えてください。
お願いします。

X-Windowプログラムで本にあったプログラムをそのまま写して
gcc ファイル名 -lX11 -lXm -lXim -lXt
でコンパイルをしようとしたら
Xm/XForm.h:そのようなファイル、ディレクトリはありません
Xm/XLabel.h:そのようなファイル、ディレクトリはありません
Xm/XPushB.h:そのようなファイル、ディレクトリはありません
Xm/XText.h:そのようなファイル、ディレクトリはありません
Xm/XRowColumun.h:そのようなファイル、ディレクトリはありません
Xm/XCascadeB.h:そのようなファイル、ディレクトリはあり...続きを読む

Aベストアンサー

Xm は、#1の方のご回答の通り、OSF/Motif という商用のXツールキットです。
が、世の中には LessTif というフリーの OSF/Motif 互換のツールキットがあります。
LessTif については、参考URLをご参照下さい。
私は Linux のことは良く知りませんが、
もしかするとパッケージが用意されているかもしれません。

参考URL:http://www.lesstif.org/

QAccessVBAで「dim dbs as database」がエラーになる

済みませんが、非常に基本的なことを聞かせていただきたいと思います。

AccessのVBAで関数を実行すると、いきなりエラーになりました。
dim dbs as database の文でエラーになり、「コンパイルエラー ユーザ定義型が定義されていません」というエラーメッセージが出ました。
databaseが定義されているような感じです。

どうすれば宜しいでしょうか?

Aベストアンサー

こんにちは。maruru01です。

VBEの画面のメニューの[ツール]→[参照設定]で、

「Microsoft DAO X.X Object Library」(X.Xはバージョン)

の項目にチェックが入っていますか?

ちなみに、DatabaseオブジェクトはDAOしかないのでいいですが、Recordsetオブジェクトなどは、ADOとDAOの両方にあるので、

Dim rs As DAO.Recordset

のように、どちらかを明確に記述しないといけません。
統一的で分かりやすいコーディングのためには、Databaseオブジェクトも、

Dim dbs As DAO.Database

のように記述するように心がけましょう。

QXM8500使用時のオーディオインターフェース

PCボーカル録音用にダイナミックマイクの購入を考えています。
shure58が欲しいのですが初心者で、予算も少ないのでXM8500の購入を考えています。

そこでオーディオインターフェースを買いたいのですが、予算は1,2万円程で、XM8500と相性の良いものがありましたら教えて下さい。

マイクケーブルなどはどのようなものを使えば良いのかも教えて頂きたいです。

あと、XM8500を購入するにあたってこれも買っておいた方が良いというものがありましたら教えて下さい。


XM8500は2300円で売っていました。
ちなみに、XM8500と同じくらいの価格で、これ以上良いマイクって恐らく無いですよね?
あったら教えて頂きたいです。

Aベストアンサー

 オーディオ暦54年の高齢者です。

 一見簡単そうですが以外と難しい質問です、XM8500と言うダイナミックマイクをUSB経由でPCに接続する方法ですが以下の2種類が考えられます。(マイク出力コネクタはITTキャノンのXLRコネクタです)

1.XM8500にはケーブルが付属していないので以下の様なケーブルが必要です。「マイクケーブル、CANARE、PC03 1600円」以下のURL参照。
http://www.soundhouse.co.jp/shop/SearchList.asp?i_type=c&s_category_cd=665
 このホーンプラグ側を以下のアンプに接続。

 マイクアンプとして「オーディオテクニカ、AT-MA2、Amazonで、4680円」以下のURL参照。
 http://www.audio-technica.co.jp/products/dj-plus/at-ma2.html

 この出力を以下のRCAピンタイプケーブル「audio-technica、AT7A64/0.7、Amazonで、1512円」で取り出す、以下のURL参照。
http://www.amazon.co.jp/%E3%82%AA%E3%83%BC%E3%83%87%E3%82%A3%E3%82%AA%E3%83%86%E3%82%AF%E3%83%8B%E3%82%AB-audio-technica-%E3%82%AA%E3%83%BC%E3%83%87%E3%82%A3%E3%82%AA%E3%82%B1%E3%83%BC%E3%83%96%E3%83%AB-AT7A64-0-7/dp/B00008B5II/ref=sr_1_34?ie=UTF8&s=electronics&qid=1238996658&sr=8-34#moreAboutThisProduct
 
 ケーブル出力をUSBオーディオアダプター「IOデータ、DAVOXL、Amazonで、5765円」の入力に接続、但し以下URLでPCの対応確認が必要です。
 http://www.iodata.jp/product/tv/sound/davoxl/index.htm

 USBコネクタはPCのUSB端子に接続します。

 マイクは別として、輸送費等を除く金額は13557円で、結構煩雑な使い方になります。

2.USBオーディオ・インターフェースに「ローランド、UA-4FX、Amazonで、18900円」を使用、以下のURL参照。
 http://www.roland.co.jp/products/jp/UA-4FX/

 此れにマイクケーブル「CANARE、EC03-X22、1680円」を使ってコネクタは両側XLRタイプ、以下のURL参照。
http://www.soundhouse.co.jp/shop/SearchList.asp?i_type=c&s_category_cd=665

 この組み合わせで、トータル20580円。

 PCにマイクを接続して使う場合は一般的にはコンデンサーマイクが使われ、この場合安価なUSBダプターが多数有りますが、ダイナミックマイクの柔らかな音色を求めるのでしたら、2.のローランド、UA-4FXを使う事を御勧め致しますが、マイク出力レベルが使い方によっては低くなり、更にマイクアンプが必要と成ることも考えられます。 

 オーディオ暦54年の高齢者です。

 一見簡単そうですが以外と難しい質問です、XM8500と言うダイナミックマイクをUSB経由でPCに接続する方法ですが以下の2種類が考えられます。(マイク出力コネクタはITTキャノンのXLRコネクタです)

1.XM8500にはケーブルが付属していないので以下の様なケーブルが必要です。「マイクケーブル、CANARE、PC03 1600円」以下のURL参照。
http://www.soundhouse.co.jp/shop/SearchList.asp?i_type=c&s_category_cd=665
 このホーンプラグ側を以下のアンプに接続。

 ...続きを読む

Q変数の宣言の名称を教えてください。(Dim i As Long)

Dim i As Longについて

「dim」→?
「i」→変数名
「As」→?
「Long」→変数の型

というように、dimとAsがなんと言えばいいのかわかりません。
アドバイスよろしくお願いします。

Aベストアンサー

>「i」→変数名
という形と合わせるのなら、以下のような感じでしょうか?
(意味についてのご質問ではないと受け取りました)

Dim・・・ステートメント
     変数の(型)宣言に用いる
AS・・・・キーワード
     変数や関数の型を示したり、フォルダ(やファイル)名を
     示したりするのに用いる

QベリンガーXM8500より音質の良いマイク(録音)

今ベリンガーのXM8500を使っています。録音した際こもりがありもっと良いマイクを使いたくてコンデンサーマイクが気になっているのですが、7000以内でクリアでXM8500よりも良いマイクは無いでしょうか?

Aベストアンサー

はじめまして♪

端的にマイクをコンデンサータイプに変えたい、というのであれば、べリンガーやサムソン、JTSなどに安価なコンデンサータイプでボーカル用も存在します。

しかし、ご予算の範囲で音の傾向が変わることは確実ですが、サウンドクオリティーと言う面では、たいして違わないと考えてもよいでしょう。

そもそもXM8500は価格に似合わないくらいの実力があります。
下手に同じダイナミックマイクでも今回のご予算の範囲では、声質や声量、使う目的や狙うサウンド方向ではけっこう方位に入ってくるマイクですね。

元々は何万円もしていたシュアのSM58を模したマイクで、よくもまぁ、この価格でオリジナルの特徴を把握してサウンドを仕上げた製品が出来たものだ、と感心するくらいです。
(SM58は現在メキシコ生産で安価に成りましたが、本国アメリカ国内生産の頃は4万くらいもしたマイクです。)

私はXM8500は所有していませんが、下位のXM1800S(3本セット)を2セット所有しています。
音の抜けは安物なりに良くは在りません。
でも使い方をちょいと工夫すれば、安定した良い音を得ることが出来ます。
実際に、アコギの弾き語りコンサートで、声もギターもこのマイクでPAと録音をしたことがあります。
(その地域の人で、音楽が好きな人はその現場を「○○町内会のウッドストック会場」といまだに言い出す始末、笑)

私としては、リハーサルなし、出演人数も知らされていなかったので、ちょっと苦労しましたが、、

さて、この手のボーカル用マイクは、そのほとんどが1966に販売開始されたSM58を参考にしています。あくまで「ステージボーカル用」のため、それ以外の利用では多少音を調整してあげるのが結果的には良いようですし、私の場合も出てくる音を聞きながら微調整しています。

パソコン録音の場合は、後から編集ソフトでかなり変えることも出来ますし、PA兼用の現場はPAから出る音だけで調整するため、録音後の音源は結構大胆にいじっています。

ユーチューブ等でXM8500を利用している例を見聞きしていますが、音が「こもっている」というケースはほとんど在りません、むしろイコライジングとかマイクの扱いが悪いなどで、もともとボリューミーな中低域が強めに出ているということはよく遭遇します。下手なイコライジングでこのアンバランスを高域強調させて対処しちゃっている例もあります。

ステージではいろいろな音が氾濫していて、その中で存在感を得るために中低域を豊かなサウンドに、子音の発声が聞き取りやすいように高域側を強めにしていながら、サシスセソ等の炸裂音が耳障りに成らない様に一部帯域だけ押さえ込んであります。
また、マイクを口元に近付けると低域が強調されます(近接効果)

これらの基本を知らずに、低域が強いからと高域を強調していくと、結果的に最も重要な中音域が隠れてしまい、もっとも良くない補正に陥る場合があります。
わりと、そういう結果でアップしちゃっている人も居ますが、そのうち気付いて正しい使い方が出来るようになるといいですけれどねぇ。

ボーカルタイプのコンデンサータイプの場合は、あまり口を近付けると音が破綻しちゃうので、ちょっと離して使うことになりますし、そのため多くはダイナミックマイクより音の補正が最初から弱く、比較的フラットなサウンド傾向が特徴です。
設備が整ったスタジオ用マイクなどのサイドアドレス型はそのほとんどが直接ボーカル用には出来ず、ポップガードを必要とします、逆に言えばそれだけ繊細で高感度なんですが、その分、取り扱いが乱暴だと壊れやすいともいえます。

エレクトレットコンデンサー型ではなく、DCバイアスのコンデンサー型ですと1万以下は基本的にローエンド製品とすらいえます。あまり過度な期待はしないほうが良いのですが、ダイナミックマイクとコンデンサータイプでは音の作りこむ方向性や近接効果の有無とか、そのほかにもいろいろ基本的に違う傾向があるのは間違いありません。

ご予算オーバーですが、オーディオテクニカのAT2010は一応コンデンサーマイクとして利用できる、中身は良質なエレクトレットコンデンサー型なので取り扱いや保管も多少楽なのですけれど、、、なにぶんご予算が、、、
(サイドアドレスタイプではなく、ハンドヘルドタイプなのでポップガードは無くても良い。)

私個人としてはXM8500をもっと追求して使いこなす、あるいはご予算の範囲で音の方向性が多少違うダイナミックマイクも利用してみる、とい方向をご提案したいところです。

はじめまして♪

端的にマイクをコンデンサータイプに変えたい、というのであれば、べリンガーやサムソン、JTSなどに安価なコンデンサータイプでボーカル用も存在します。

しかし、ご予算の範囲で音の傾向が変わることは確実ですが、サウンドクオリティーと言う面では、たいして違わないと考えてもよいでしょう。

そもそもXM8500は価格に似合わないくらいの実力があります。
下手に同じダイナミックマイクでも今回のご予算の範囲では、声質や声量、使う目的や狙うサウンド方向ではけっこう方位に入ってくるマイク...続きを読む

QVBAで、MsgBox の変数の利用について

ACCESS2010を利用してます。
Dim a as String
Dim memo as String

a= "■機種名:" & Me.[機種名]
memo = a

Me.[メモ欄] = memo
MsgBox = memo

上記コードで、代入式の左辺の関数呼び出しは、バリアント型またはオブジェクト型の値を返さなければなりませんとなります。

このエラー方法の解消方法を、お手数ですが、ご教示していただけないでしょうか?

Aベストアンサー

下にある「使用例」見てもわかりませんか?

QマイクのXM1800Sを買おうとしてます。

インターネットショップのサウンドハウスでXM1800S(3本入)を買おうとしているのですが、
マイクとミキサーを繋ぐケーブルって入っているのでしょうか?

もし入ってなかったらどのようなケーブルを買えばいいのでしょうか?

http://www.soundhouse.co.jp/shop/productdetail.asp?item=181^xm1800s^^

Aベストアンサー

No.1です。
リンクがちょっと変になってますが、BehringerのUBB1002ですね?

これなら大丈夫ですよ。XLR入力は5チャンネル分使えます。私も同じの持ってますから、自信ありあり。

>入ってないですか…。

余計なお世話の話ですが、プロ用=業務音響仕様のマイクは、マイクケーブルは付いてないのが当たり前なんです。本来的にはプロ相手に販売するのが前提の製品ですから、買い手はとっくにマイクケーブルは持っているのが前提の売り方です。
(逆に、マイクケーブルを持っている立場だと、安物の音の悪いケーブルが付いてても、使いもせんので邪魔なだけだし、そんなもの付けるくらいなら本体をもっと値引きして欲しいのが本音になる)

まぁ、現実問題としては、XM1800Sみたいな激安品を好んで使うプロは居ないですけど、でも製品自体はプロ仕様に合致するちゃんとした作りのマイクですから、正直言って「マイクケーブル付き=素人向けの1本1万円くらいまでのマイク」に比べれば、この3本5千円のXM1800Sの方が、よっぽどしっかりした音ですよ。

私自身は、1本3万円くらいするボーカルマイクも持ってますが、XM1800Sと同シリーズのXM8500もよく使います。マイクにも相性があるので、相性さえ合えば、1本3000円のXM8500でも3万円のマイクと同等以上の良い音で録れます。

No.1です。
リンクがちょっと変になってますが、BehringerのUBB1002ですね?

これなら大丈夫ですよ。XLR入力は5チャンネル分使えます。私も同じの持ってますから、自信ありあり。

>入ってないですか…。

余計なお世話の話ですが、プロ用=業務音響仕様のマイクは、マイクケーブルは付いてないのが当たり前なんです。本来的にはプロ相手に販売するのが前提の製品ですから、買い手はとっくにマイクケーブルは持っているのが前提の売り方です。
(逆に、マイクケーブルを持っている立場だと、安物の音の悪...続きを読む

QACCESS VBAのMSGBOXで以降の処理を中止したい時・・・。

こんばんは。

ACCESS VBAにて、MSGBOXの返り値がVBNOの際に以降の処理を中止したいと思っています。

以前はEndと記載していましたが、グローバル変数の値が初期化されたり弊害があると言われたためExit functionやExit subに置き換えた所、そのFunction以降のFunction(元々コマンドボタンクリックでいくつかのPublic Functionが動くようになっています)に処理が移ってしまい困っています。

そもそも書き方に問題があるのかもしれませんが、ご存知の方いたら教えてください。連休中の宿題って感じです。(涙)よろしくお願いします。

Aベストアンサー

大規模に現状のコードを修正しないで済みそうな方法としては、エラー
トラップを利用する方法かと思います。

下記のコードはあくまでテスト用なので、関数は中身のない適当なものです。
読み取ってほしいのは、MsgBox で No が選択された場合にエラーを発生させ、
MainProc のエラーハンドラに戻している点です。

10回「Resume?」に Yes をクリックすると、コード中のコメント(A)により
"SampleFuncA を抜けます" と表示されますが、途中 No をクリックした場合
これが表示されません。つまり、SampleFuncA の実行は途中で終了されます。

Public Const FORCE_BREAK_CODE As Long = 50000

Public gsTest As String

Sub MainProc()

  Dim n As Long
  
  On Error GoTo Err_
  gsTest = "テストです"
  MsgBox "完走しましたよ N:=" & CStr(SampleFuncA(1))

Bye_:
  MsgBox "Public 変数 gsTest:=" & gsTest
  Exit Sub
Err_:
  Select Case Err.Number
    Case FORCE_BREAK_CODE
       MsgBox "ユーザーキャンセル", vbInformation
    Case Else
       MsgBox Err.Description, vbCritical
  End Select
  Resume Bye_
End Sub

' // サンプル関数A
Public Function SampleFuncA(ByVal n As Long) As Long
  While n < 10
    n = SampleFuncB(n)
  Wend
  SampleFuncA = n
  MsgBox "SampleFuncA を抜けます" ' // (A)
End Function

' // サンプル関数B
Public Function SampleFuncB(ByVal n As Long) As Long
  If MsgBox("N:=" & CStr(n), vbYesNo, "Resume?") = vbNo Then
    Err.Raise FORCE_BREAK_CODE '// <--- ココでエラーを発生させる
  End If
  SampleFuncB = n + 1
End Function

大規模に現状のコードを修正しないで済みそうな方法としては、エラー
トラップを利用する方法かと思います。

下記のコードはあくまでテスト用なので、関数は中身のない適当なものです。
読み取ってほしいのは、MsgBox で No が選択された場合にエラーを発生させ、
MainProc のエラーハンドラに戻している点です。

10回「Resume?」に Yes をクリックすると、コード中のコメント(A)により
"SampleFuncA を抜けます" と表示されますが、途中 No をクリックした場合
これが表示されません。つまり、Sample...続きを読む

QXM8500

XM8500のマイクで歌を録音したいです。
なのでケーブルが必要になってくると思います。
http://www.soundhouse.co.jp/shop/ProductDetail.asp?Item=233^MIX100^^
これを買おうと思っています。
XM8500は使えるでしょうか?

ケーブルからパソコンにつなげるにはどうすれば良いでしょうか?

Aベストアンサー

えと、使えることは使えます。
というか、XM8500は、そういう「XLR♂-XLR♀」と呼ばれるマイクケーブルで使うのが前提の設計になっています。

問題なのは
>ケーブルからパソコンにつなげるにはどうすれば良いでしょうか?
という部分。

パソコンに繋ぐ端子が、このケーブルをそのままズボっと刺せる「XLRマイク端子」ならば、何も悩むことはなくそのまま繋げばよいのですが…
ギターケーブルを繋ぐような「標準フォン端子」や、パソコン本体に普通は標準で付いている「ミニ・マイク端子」に繋ぐおつもりなら、XM8500は抜本的に、そういう端子に繋ぐような設計にはなっていません。

なので、「XLRマイク端子」ではない端子に繋ぐなら、あんまりいい音では録音できないと思っておいた方が良いです。特に「ミニ・マイク端子」だったら、スカイプ等に使うヘッドセットのちっこいマイクの方が、よっぽど音が良い…というのは、非常によくある話です。

なので、XM8500を使ってパソコンに録音するなら、「XLRマイク端子」が付いているオーディオインターフェースを入手して、そのインターフェースのマイク端子に、質問者の方がご予定のマイクケーブルで繋ぐのが一番です。対応した端子とケーブルで繋ぐことができる機材環境なら、そこそこ良い音質で録音できますよ。

一応は、こういうケーブル
http://www.soundhouse.co.jp/shop/ProductDetail.asp?Item=233%5EMIP010%5E%5E
や、変換コネクタを使えば「標準フォン端子」や「ミニ・マイク端子」にXM8500を繋ぐことはできますが、マイクの能力に見合った音質の半分も活かせないのが普通です。

えと、使えることは使えます。
というか、XM8500は、そういう「XLR♂-XLR♀」と呼ばれるマイクケーブルで使うのが前提の設計になっています。

問題なのは
>ケーブルからパソコンにつなげるにはどうすれば良いでしょうか?
という部分。

パソコンに繋ぐ端子が、このケーブルをそのままズボっと刺せる「XLRマイク端子」ならば、何も悩むことはなくそのまま繋げばよいのですが…
ギターケーブルを繋ぐような「標準フォン端子」や、パソコン本体に普通は標準で付いている「ミニ・マイク端子」に繋ぐおつもりな...続きを読む

QIfの条件式(VBAです)

基本的なことで申し訳ありません。

EXCEL VBAのユーザーフォームで
textbox1の値がAかBかCで
なおかつ、textbox2の値が1か2か3の場合
textbox3に○を表示させたいのですが
どう書けばよいのでしょうか?

どなたかご教授お願い致します。

Aベストアンサー

こんな感じになると思います。

If TextBox1.Value = "A" Or TextBox1.Value = "B" Or TextBox1.Value = "C" Then
If TextBox2.Value = "1" Or TextBox2.Value = "2" Or TextBox2.Value = "3" Then
TextBox3.Text = "○"
End If
End If


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング