VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/09/19(Thu) 10:09 |
| 投稿者 | ： MANA |
| ＵＲＬ | ： |
| タイトル | ： エクセルについての質問です |
質問です。下記で、For iiが If条件を通過した場合に、jが例えば4で書かれ、
Nextに行き、次のFor iiが If条件を通過した場合、jが一個増え、5で書かれる
ようにしたいのですが、どのようにやれば出来るのでしょうか？色々な所にFor文
を追加してみたのですが、うまく行きませんでした。教えてください！
For ii = 1 To filekensaku
If FileLen(マスターパス & Nowdate & "\" & strMyfile(ii)) = 0
Then
Else
ファイル名前 = Left(strMyfile(ii), 11)
辺 = Left(Right(strMyfile(ii), 5), 1)
Open マスターパス & Nowdate & "\" & strMyfile(ii)
For Input As #1
Do Until EOF(1)
Input #1, varA_
, varB_
, varC_
, varD _
, varE _
, varF _
, varG _
, varH _
, varI _
, varJ _
, varK
'***** Excel のセルに値を代入*****'
xlSheet.Cells(j, 1).Value = ファイル名前
xlSheet.Cells(j, 2).Value = 辺
xlSheet.Cells(j, 3).Value = Mid(varA, 1)
xlSheet.Cells(j, 4).Value = varB
xlSheet.Cells(j, 5).Value = varC
xlSheet.Cells(j, 6).Value = varD
xlSheet.Cells(j, 7).Value = varE
xlSheet.Cells(j, 8).Value = varF
xlSheet.Cells(j, 9).Value = varG
xlSheet.Cells(j, 10).Value = varH
xlSheet.Cells(j, 11).Value = varI
xlSheet.Cells(j, 12).Value = varJ
xlSheet.Cells(j, 13).Value = varK
Loop
Close #1
End If
Next ii
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）