- 01: 名前:しん投稿日:2003/03/01(土) 04:25
- VBA初心者の者です。
Visioテクニカルガイドで紹介されているVBA
(Visioの図面にあるシェイプの一覧をExcelで作る例)
を試そうとしましたが下記のようなエラーがでてしまいます。
Sub、Function、または Property が定義されていません。(Error 35)
当方VBA初心者で恐縮なのですがどなたかご指導頂けると幸いです。
コードは下記です。
Sub test()
Dim l As Integer
Dim row As Integer
Dim xlObj As Object
Dim xlBook As Object
Dim xlsheets As Object
Dim xlSheet As Object
Dim xlWorksheets As Object
Dim selObj As Visio.Selection
Dim shpObj As Visio.Shape
Set xlObj = CreateObject("Excel.application")
Set xlBook = xlObj.Workbooks.Add
Set xlSheet = xlBook.Sheets.Item(1)
xlObj.Visible = True
row = 1
xlSheet.Cells(row, 2).value = "ID"
xlSheet.Cells(row, 3).value = "名称"
row = row + 1
'Excekへの転送
Set selObj = Visio.ActiveWindow.Selection
For l = 1 To selObj.Count
Set shpObj = selObj(l)
xlSheet.Cells(row, 2).value = shpObj.ID
xlSheet.Cells(row, 3).value = shpObj.Name
row = row + 1
Nextl
End Sub
Sub test()
Dim l As Integer
Dim row As Integer
Dim xlObj As Object
Dim xlBook As Object
Dim xlsheets As Object
Dim xlSheet As Object
Dim xlWorksheets As Object
Dim selObj As Visio.Selection
Dim shpObj As Visio.Shape
Set xlObj = CreateObject("Excel.application")
Set xlBook = xlObj.Workbooks.Add
Set xlSheet = xlBook.Sheets.Item(1)
xlObj.Visible = True
row = 1
xlSheet.Cells(row, 2).value = "ID"
xlSheet.Cells(row, 3).value = "名称"
row = row + 1
'Excekへの転送
Set selObj = Visio.ActiveWindow.Selection
For l = 1 To selObj.Count
Set shpObj = selObj(l)
xlSheet.Cells(row, 2).value = shpObj.ID
xlSheet.Cells(row, 3).value = shpObj.Name
row = row + 1
Nextl
End Sub
- 02: 名前:yoda投稿日:2003/03/01(土) 09:02
- Next と l の間に空白を入れればよいと思います。
- 03: 名前:しん投稿日:2003/03/01(土) 14:05
- yoda様 空白をいらたら動きました!ありがとうございます。
■トップに戻る リロード 単独スレ表示
|