Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67967 / 76738

←次へ　｜　前へ→


	【13318】Re:別シートからの転記

NAO - 04/5/1(土) 15:51 -


	引用なし

	パスワード

▼Hirofumi さん：レスありがとうございます。

>Dictionaryオブジェクトが使える環境ならこんなコードで善いかな？
>以下を標準モジュールに記述してください
>

初心者なもので、Dictionaryオブジェクトが使える環境になっているのかどうかも分かりません。

とりあえず、コードを標準モジュールに貼り付け、実行してみましたが、
実行時エラーが表示されただめでした。デバッグキーを押すと、
　
>　　'データの有るシート数繰り返し
>　　For i = 0 To UBound(vntSheets)
>　　　　'データの出力

　より下の、

>　　　　ListingData Worksheets(vntSheets(i)), _
>　　　　　　　　　　vntWritePos(i), vntClass, _
>　　　　　　　　　　lngRowPitch, dicIndex, wksResult
　　
　の部分が黄色になります。

ListingDataをF1キーで見ますと、「無効なオブジェクトライブラリーです。または定義されいないオブジェクトへの参照を含んでいます。」と表示されました。

Dictionaryオブジェクトについて分からないまま、Windoows Scriptをインストールしてみましたが、だめでした。

よろしくお願いします。

0 hits

▼

【13278】別シートからの転記 NAO 04/4/30(金) 0:23