KLEB KONDO-NETいい掲示板

[133] 題名:VC++からのExcel VBAマクロ呼び出し方法

VBからExcelのマクロはRunメソッドで呼び出せるのですが、同様のことをVC++で行うには、どのようにすればよいか申し訳ありませんが、教えていただければと思います。(勿論、参考サイトでもかまいません)
よろしくお願いします。
環境：OS Win2k OfficeXP VC++6.0

---

投稿日:2004/01/29 23:12 投稿者:いぐあな 　返信　引用返信　修正　削除

[132] 題名:Re[131]:VC++.NETのOCXの作成方法について

>VC++.NETのOCX作成方法をご存知でしたら教えて頂きたいと
>思います。お願い致します。
NETは、持っていませんので、細かい違いは解りませんが
http://www.kondo-net.gr.jp/softca/ocx.htm
の、手順で行えませんか？

---

投稿日:2004/01/16 13:10 投稿者:近藤 　返信　引用返信　修正　削除

[131] 題名:VC++.NETのOCXの作成方法について

VC++.NETのOCX作成方法をご存知でしたら教えて頂きたいと
思います。お願い致します。

---

投稿日:2004/01/16 13:06 投稿者:匿名メール 　返信　引用返信　修正　削除

[130] 題名:Re[129]:ＥＸＥからＶＢソースに逆展開できませんか

大変申し訳御座いませんが、私には解りません。
一般的に
ＰコードでEXEを生成している場合、可能性があるかもしれませんが、
通常コンパイルでは、無理であると考えています。
>ＶＢにてハンディターミナルバーコードリーダーユーティリティに送信するプログラムを作成し、ＥＸＥコンパイル作成しました。
>しかし、サーバ故障によりＶＢソースプログラムが消失してしまいました。ＥＸＥファイルは残っているのですがこのＥＸＥファイルからＶＢソースプログラムに逆展開するなんて事はできないでしょうか？

---

投稿日:2004/01/16 11:22 投稿者:近藤 　返信　引用返信　修正　削除

[129] 題名:ＥＸＥからＶＢソースに逆展開できませんか

ＶＢにてハンディターミナルバーコードリーダーユーティリティに送信するプログラムを作成し、ＥＸＥコンパイル作成しました。
しかし、サーバ故障によりＶＢソースプログラムが消失してしまいました。ＥＸＥファイルは残っているのですがこのＥＸＥファイルからＶＢソースプログラムに逆展開するなんて事はできないでしょうか？

---

投稿日:2004/01/16 11:16 投稿者:匿名メール 　返信　引用返信　修正　削除

[128] 題名:Re[127]:VBからアクセスのマクロ（AutoExex）を使用してレポートを表示したい

一体何を、望んでいるのでしょう？

---

投稿日:2003/09/12 09:08 投稿者:近藤 　返信　引用返信　修正　削除

[127] 題名:VBからアクセスのマクロ（AutoExex）を使用してレポートを表示したい

VBで作成した画面にあるボタンを押下後、アクセスのレポートを表示したいのですが。
マクロを作成しそのマクロの名前をAutoExexという名にしテーブルと関連付けるとMDBが開かれた時に自動的にレポートを表示してくれるとも聞きました。
詳しいこと解らないので上記のやり方のマクロのつくり方とVBからそのつくったマクロやMDBを呼んだりレポートを開くやり方もしくはコーディングの仕方を教えていただきたいのですが。お忙しい所申し訳ありませんが初心者の僕になにとぞご指導よろしくお願いします。

---

投稿日:2003/09/11 14:35 投稿者:Kazu 　返信　引用返信　修正　削除

[126] 題名:Re[125]:Re[124]:Re[123]:Accessオブジェクトエラーについて

application.hWndAccessAppが、アクセスのオブジェクトですので、
これは、参照設定するか、CreateObjectでオブジェクトをＶＢで見れるようにする必要があると思います。

---

投稿日:2003/09/07 08:32 投稿者:近藤 　返信　引用返信　修正　削除

[125] 題名:Re[124]:Re[123]:Accessオブジェクトエラーについて

結局、駄目だったので
フォームモジュールを追加してForm2にすべて記述し
.hwnd = application.hWndAccessApp
を.hwnd =nHwndに変更し
VB6のメニューのプロジェクト→参照設定でMicrosoft Access 9.0 object libraryを追加しないと動きませんでした。
でも、何が問題でコピーされないのか不明ですが・・・？？
また、.hwnd = application.hWndAccessApp
を.hwnd =nHwnd
>使用環境（Access97　OS：Win2000）
>何の問題も無く、コピーできます。
>今回ＶＢ６は、関係ないですよね？
>
>>エクスプローラー風ファイルコピーを作成しているのですが
>>Accessのハンドルを以下のようにセットすると
>>実行エラー424　（オブジェクトが必要です）と表示される。なぜ？？
>>
>>使用環境（VB6 Access2000　OS：Win98）
>>
>>
>>.hwnd = application.hWndAccessApp
>>
>>’標準モジュールへ記述
>>Option Explicit
>>
>>Type SHFILEOPSTRUCT
>>hwnd As Long
>>wFunc As Long
>>pFrom As String
>>pTo As String
>>fFlags As Integer
>>fAnyOperationsAborted As Long
>>hNameMappings As Long
>>lpszProgressTitle As String
>>End Type
>>
>>Declare Function SHFileOperation Lib \"SHELL32.DLL\" Alias _
>>\"SHFileOperationA\" (lpFileOp As SHFILEOPSTRUCT) As Long
>>
>>Const FO_COPY = &H2
>>Const FO_MOVE = &H1
>>Const FOF_NOCONFIRMATION = &H10
>>Const FOF_RENAMEONCOLLISION = &H8
>>
>>
>>Private Sub Command1_Click()
>>
>>\&#039次の例では、ファイル\"c:\\My Documents\\Test.mdb\"を\"c:\\Test.mdb\"にコピーします。
>>
>>Dim stShellOp As SHFILEOPSTRUCT
>>
>>Const cstrSrcFile As String = \"c:\\My Documents\\Test.mdb\"
>>Const cstrDstFile As String = \"c:\\Test.mdb\"
>>
>>With stShellOp
>>.hwnd = application.hWndAccessApp
>>.wFunc = FO_COPY
>>.pFrom = cstrSrcFile
>>.pTo = cstrDstFile
>>End With
>>
>>If SHFileOperation(stShellOp) = 0 Then
>>Beep
>>MsgBox \"コピー完了しました！\"
>>Else
>>Beep
>>MsgBox \"コピーに失敗またはキャンセルされました！\"
>>End If
>>
>>End Sub
>>

---

投稿日:2003/09/07 00:51 投稿者:梁川 　返信　引用返信　修正　削除

[124] 題名:Re[123]:Accessオブジェクトエラーについて

使用環境（Access97　OS：Win2000）
何の問題も無く、コピーできます。
今回ＶＢ６は、関係ないですよね？
>エクスプローラー風ファイルコピーを作成しているのですが
>Accessのハンドルを以下のようにセットすると
>実行エラー424　（オブジェクトが必要です）と表示される。なぜ？？
>
>使用環境（VB6 Access2000　OS：Win98）
>
>
>.hwnd = application.hWndAccessApp
>
>’標準モジュールへ記述
>Option Explicit
>
>Type SHFILEOPSTRUCT
>hwnd As Long
>wFunc As Long
>pFrom As String
>pTo As String
>fFlags As Integer
>fAnyOperationsAborted As Long
>hNameMappings As Long
>lpszProgressTitle As String
>End Type
>
>Declare Function SHFileOperation Lib \"SHELL32.DLL\" Alias _
>\"SHFileOperationA\" (lpFileOp As SHFILEOPSTRUCT) As Long
>
>Const FO_COPY = &H2
>Const FO_MOVE = &H1
>Const FOF_NOCONFIRMATION = &H10
>Const FOF_RENAMEONCOLLISION = &H8
>
>
>Private Sub Command1_Click()
>
>\&#039次の例では、ファイル\"c:\\My Documents\\Test.mdb\"を\"c:\\Test.mdb\"にコピーします。
>
>Dim stShellOp As SHFILEOPSTRUCT
>
>Const cstrSrcFile As String = \"c:\\My Documents\\Test.mdb\"
>Const cstrDstFile As String = \"c:\\Test.mdb\"
>
>With stShellOp
>.hwnd = application.hWndAccessApp
>.wFunc = FO_COPY
>.pFrom = cstrSrcFile
>.pTo = cstrDstFile
>End With
>
>If SHFileOperation(stShellOp) = 0 Then
>Beep
>MsgBox \"コピー完了しました！\"
>Else
>Beep
>MsgBox \"コピーに失敗またはキャンセルされました！\"
>End If
>
>End Sub
>

---

投稿日:2003/09/06 19:39 投稿者:近藤 　返信　引用返信　修正　削除