ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽl 2005/11/03(ｿｽｿｽ) 16:53:49

ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽFACCESS2003ｿｽAWindowsXP
ACCESSｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽDDEｿｽｿｽEXCELｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽAｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾖ難ｿｽｿｽ黷ｽｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽXｿｽVｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Private Sub command_Click()
 Dim ch1 As Long
 Dim ch2 As Long
 Dim strExcelPath As String
 Dim strExcelSheet As String
 Dim strFilePath As String
 Dim i As Integer
 Dim j As Integer
 Dim celData As Variant
 Dim cn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 Dim tableName As String
 
 Set cn = CurrentProject.Connection
 tableName = "ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"
 rs.Open tableName, cn, adOpenKeyset, adLockOptimistic
 strExcelPath = "ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"
 strExcelSheet = "ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"
 strFilePath = "ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"
 Shell strExcelPath, 1
 ch1 = DDEInitiate("Excel", "System")
 DDEExecute ch1, "[open(""" & strFilePath & """)]"
 ch2 = DDEInitiate("Excel", strExcelSheet)
 celData = DDERequest(ch2, "R1C1")
 rs.AddNew
 rs.Fields(0) = celData
 rs.Update     
 DDETerminate ch1
 DDETerminate ch2
 Me.Refresh
End Sub
  
  

ｿｽB 2005/11/04(ｿｽｿｽ) 09:10:49

ｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽあゑｿｽｿｽﾕでーｿｽﾅゑｿｽｿｽぐゑｿｽﾓゑｿｽｿｽ驍ｷｿｽﾉゑｿｽｿｽｿｽ

M 2005/11/04(ｿｽｿｽ) 13:15:12

ｿｽBｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Application.ScreenUpdating = False ｿｽｿｽ
ExcelVBAｿｽﾅは使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAAccessVBAｿｽﾅは使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

M 2005/11/05(ｿｽy) 23:16:26

ｿｽｿｽｿｽﾜゑｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍなゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
Repaint ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽgｿｽｿｽｿｽﾄ、ｿｽXｿｽVｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽ}ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ皷橸ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.