Excel VBA質問箱 IV

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

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


48817 / 76732 ←次へ | 前へ→

【32844】CreateObject("〜")の書き方
質問  KK  - 05/12/24(土) 12:36 -

引用なし
パスワード
   いつも勉強させてもらっています。

Microsoft Forms 2.0 Object Libraryを参照設定するのに、
Userformをブックに挿入すると、自動的に参照設定されるので、
ダミーのUserformをブックに挿入した状態で、

Dim obj As New DataObject

として、使っていますが、ダミーのUserformをブックに挿入しい状態で、

Dim obj As Object
Set obj = CreateObject("〜")

として使いたいのですが、〜の書き方が分りません。
もし書くことができるのなら、どのように書けばよいのでしょうか。

例として、次のコードが動くようにしたいのですか。

PutInClipboard メソッドのヘルプの使用例を変形させたものですが、

Sub test()
Dim d As String
  'Set obj = New DataObject
  'を
  Dim obj As Object
  Set obj = CreateObject("〜")
  'のようにしたいのですが。
  
  d = "データ"
  
  obj.SetText d
  obj.PutInClipboard

  Range("A1").Paste
End Sub
2 hits

【32844】CreateObject("〜")の書き方 KK 05/12/24(土) 12:36 質問
【32845】Re:CreateObject("〜")の書き方 Kein 05/12/24(土) 14:40 回答
【32849】Re:CreateObject("〜")の書き方 KK 05/12/24(土) 17:52 お礼
【32855】Re:CreateObject("〜")の書き方 KK 05/12/25(日) 10:14 質問
【32860】Re:CreateObject("〜")の書き方 KK 05/12/25(日) 15:01 お礼
【32886】Re:CreateObject("〜")の書き方 小僧 05/12/26(月) 14:42 回答
【32898】Re:CreateObject("〜")の書き方 KK 05/12/26(月) 15:50 お礼

48817 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free