| |
こんにちは、さつきと申します。
こちらのトピック番号2135
でExcelファイルのオートシェイプ上のテキストの値を取得する方法が載っていたので、下記のようにして動かしてみましたが、「ユーザー定義型は定義されていません」というエラーがでます。他にもあちこち探して見ましたが、わかりません。
どなたかご教授お願いいたします。accessのバージョンは2003です。
Private Sub コマンド15_Click()
Dim Obj_Shape As Variant
Dim FileName As String
Dim wk_Applicant As String
Dim wk_ApplicantDay As Date
' ファイル名取得
FileName = "C:\Documents and Settings\My Documents\Test.xls"
' Excel起動
Set objExcel = CreateObject("Excel.Application")
' ファイルオープン
objExcel.Workbooks.Open FileName:=FileName
With objExcel
For Each Obj_Shape In .Workbooks("Test.xls").Worksheets(1).Shape
If Obj_Shape.Name = "テキスト 1" Then
wk_Applicant = Obj_Shape.TextFrame.Characters.Text
ElseIf Obj_Shape.Name = "テキスト 2" Then
wk_ApplicantDay = Obj_Shape.TextFrame.Characters.Text
End If
Next
Excel終了
.Quit
End With
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
