VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/06/11(Fri) 11:18 |
| 投稿者 | ： ひろぽん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: DAOでのExcel使用について |
一応、なんとかなりそうなのでご報告まで
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("c:\book1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range(xlInsertCell & "1").Activate
For i = 1 To xlCellCount
xlApp.Selection.EntireColumn.Insert
xlApp.ActiveCell = "追加列" & i
Next
xlSheet.SaveAs "c:\book1.xls"
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
補足．xlInsertCell 挿入開始位置
xlCellCount 挿入列数
の様にEXCELの表に列を挿入してからDAOを使用して更新する様にしました。
ありがとうございました。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）