VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/01/21(Tue) 21:00 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: VBからExcelを操作 |
今、確認すべくマクロを取ってそのマクロをVBから起動したらできたので調べていたら
貴方のマクロでは区切り位置が見当らなかったので出来ないものと思っていたのですが
私が記録したマクロでは１箇所変更するだけで実行できました。
区切り位置は実際のファイルに合わせて下さい。
但し、VB6.0 Excel2000 での確認です。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Workbooks.OpenText FileName:="C:\test.prn", StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), _
Array(28, 1), Array(44, 1), Array(60, 1), Array(76, 1), Array(92, 1))
xlApp.Visible = True
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）