| |
よろしくお願いします。
（環境 Win XP pro Office2003 proです。）
Access VBAで既存のExcelBookを開き処理を行いたいのですが、
エラーにはならないのですが、処理結果が反映されていないです。
下記のコードはまだ作成途中のものですが、どこがおかしいでしょうか？
教えて下さい。お願い致します。
Dim myXLS As ObjectFrame
Dim ws As Worksheet
Dim maxrows As Long
Dim a As Integer
Set myXLS = GetObject(filepath, "Excel.Sheet")
myXLS.Application.Visible = True------------------excelは開きますが既存のbookが表示されない。
Set ws = myXLS.Worksheets("Export_T")
ws.Select
maxrows = ws.UsedRange.Rows.Count
ws.Columns("A:B").Insert Shift:=xlToRight-------処理されていない
For a = 2 To maxrows
Next
myXLS.Application.Quit
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
