要件

EXCEL VBA より サイレントログインで アクセスする。

利用するBAPIは 「 BAPI_COSTELEM_GETLIST 」

管理領域、原価要素タイプ を指定して

その内容を 取得する。取得後 シートに書き出す。

 

**************************************************************

前提ではERP6.0 ユニコードの設定である、PADでのアクセス時は
問題は発生していないが、サイレントアクセスの際に
日本語が#になる症状が発生。
Sapassというサイトで Propertiesを見る事が出来た。
<SAP.Function オブジェクト>.Connection.CodPage = "8000"
※ SAPGuiのINIを確認 8000 になっていた。
このプロパティーの追加で #問題は解消した。
調査の結果 SAP Remote Function Call のActiveXの実態は
wdtfuncs.ocx と推測 レジストリーキーを確認
試しに EXCEL VBAで明示的に参照を設定すると
何気に プロパティーが出現・・・・・ さらに調査必要

Get系のBAPIは VBAより十分利用が可能
トランザクション BAPI SE37(汎用モジュール)で文書を確認し
単体テストでパラメータを与え、確認する。

参考サイト Sapass

 

具体的なコード ( 参考まで )
<事前に Public Type で変数宣言をすませ、 Dim で割り当て済み >
<このコードはBAPIをCALLする物ではありません、あくまでLogOnのサイレントLogonの事例です。>< EXCEL2007 VBA で作成し、EXCEL2000での稼働は確認してます >

 

 

'接続設定 ( 事前に Public Typeで 変数宣言をして ます)

sapcnobj.sapsystem = "KD2"

sapcnobj.sapsysnum = 0

sapcnobj.sapcodep = "8000"  ← コードページを設定

sapcnobj.sapsvadd = ThisWorkbook.Worksheets("config").Cells(9, 5)

sapcnobj.sapclnum = ThisWorkbook.Worksheets("config").Cells(11, 5)

sapcnobj.sapuser = ThisWorkbook.Worksheets("config").Cells(13, 5)

sapcnobj.sappass = ThisWorkbook.Worksheets("config").Cells(15, 5)

sapcnobj.saplang = ThisWorkbook.Worksheets("config").Cells(17, 5)

sapcnobj.sapLogType = True     'True はサイレント Log

 

' TRUEサイレントでアクセスすると 文字が化ける?

 

 

 

'接続オブジェクト作成

 

Set sapcnobj.sapcnect = CreateObject("SAP.Functions")

 

sapcnobj.sapcnect.Connection.System = sapcnobj.sapsystem

sapcnobj.sapcnect.Connection.SystemNumber = sapcnobj.sapsysnum

sapcnobj.sapcnect.Connection.CodePage = sapcnobj.sapcodep
'( Codepage を 割り当ててます )

sapcnobj.sapcnect.Connection.ApplicationServer = sapcnobj.sapsvadd

sapcnobj.sapcnect.Connection.Client = sapcnobj.sapclnum

sapcnobj.sapcnect.Connection.User = sapcnobj.sapuser

sapcnobj.sapcnect.Connection.Password = sapcnobj.sappass

sapcnobj.sapcnect.Connection.Language = sapcnobj.saplang

 

 

 

 

'接続実行

'sapcnobj.sapLogType は事前に True を代入してます。

If sapcnobj.sapcnect.Connection.Logon(0, sapcnobj.sapLogType) <> True Then

Debug.Print "CONECTION FALSE"

Exit Sub

End If

 

 

ご注意: 掲載コードはあくまで参考としてください。

白崎一哉

 

 

著作

このページは個人のページです。記載の記事および内容については一切保障いたしません。2008/12/31 白崎

 -- login --

ゲスト 85人 と メンバー0人 がオンラインです