出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
EXCELのイベントをASPで操作 　 DOさん [2004/01/28 22:09:59] [4021]
[4021] EXCELのイベントをASPで操作
投稿者：DOさん 2004/01/28 22:09:59
こんばんは。
EXCELのWorkSheet_Changeイベントに関し、EXCELのモジュールに下記のようなソースが記載されたマクロブックがあります。
このソースはSQLサーバーからのデータを4列目、5列目に表示するものです。
このマクロブックからマクロを除き、フォームだけにしてWeb Server上に掲載し、代わりにASP上で下記のようなWorkSheet_Changeソースでエクセル上の4列目、5列目にSQLサーバーからの値を返したいと思っています。
ASP側で操作するにはどのようなコードになるのでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)

Dim WrkODBC As Workspace
Dim StrConnect1 As String
Dim OpenConect1 As Connection
Dim TBL1 As Recordset



Set WrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
StrConnect1 = "ODBC;Driver={SQL Server};Server=xxxxxx;Database=xxxxx;UID=xxxx;PWD=xxxxx;"

If Target.Cells(1).Column = 3 Then
Target(1, 1) = Parts
Set OpenConect1 = WrkODBC.OpenConnection("", , , StrConnect1)
Set TBL1 = OpenConect1.OpenRecordset("select * from DB where PARTSNO LIKE '" & Parts & "'", dbOpenSnapshot)
If Not TBL1.EOF Then
Cells(Target.Row, 4) = TBL1.Fields("PARTSNME").Value
If TBL1.Fields("test").Value <> "" Then
Select Case TBL1.Fields("test").Value
Case "1"
Cells(Target.Row, 5) = "非該当品"
Case "2"
Cells(Target.Row, 5) = "該当品"
Case "3"
Cells(Target.Row, 5) = "要カタログ"
Case "A"
Cells(Target.Row, 5) = "対象品"
Case "B"
Cells(Target.Row, 5) = "対象外品"
End Select
End If
End If
TBL1.Close
End If
Err_Trap:
End Sub

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ