advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 28 for 平均 平日 (0.001 sec.)
平均 (1364), 平日 (458)
[[20120125162535]]
#score: 10342
@digest: 21ba4d7ecceb59a865106b9e44d5506e
@id: 57423
@mdate: 2012-01-26T05:25:49Z
@size: 2266
@type: text/plain
#keywords: 稚部 (29295), 働= (26885), 外実 (26361), 内実 (25864), 務外 (25703), 働+ (25088), 幼" (23246), 部¥ (17562), 休時 (17505), 実労 (17436), 年休 (17261), 幼稚 (9643), 務日 (8846), 務内 (8799), gyou (8402), 幼*. (7748), 労働 (6591), 数+ (5788), 成段 (5545), 間+ (4582), 勤務 (4450), 日数 (3404), 数= (2933), ル数 (2634), 間= (2467), 順調 (2033), ル読 (1978), savechanges (1954), 親オ (1874), fc (1721), 休日 (1698), 対パ (1690)
『ファイル数を読み込んでいたのですが突然読めなくなった』(おさむ)
Dim fc As Long 'ファイル数 Dim fn As String 'ファイル名 fc = 0 fn = Dir("..¥幼稚部¥幼*.xls") Do While fn <> "" fc = fc + 1 fn = Dir() Loop MsgBox "ファイル数は" & fc & "です。" For x = 1 To fc Workbooks.Open ("..¥幼稚部¥幼" & CStr(x) & ".xls") 勤務日数 = 勤務日数 + Cells(gyou, 4).Value 年休日数 = 年休日数 + Cells(gyou, 5).Value 年休時間 = 年休時間 + Cells(gyou, 6).Value 勤務内実労働 = 勤務内実労働 + Cells(gyou, 7).Value 勤務外実労働 = 勤務外実労働 + Cells(gyou, 8).Value Workbooks("幼" & CStr(x) & ".xls").Close SaveChanges:=False Next x 作成段階では順調に動いていたのですが、この作業を6回繰り返して、保存したらファイル数は0というMsgboxからのメッセージで、エラーもでず、マクロが終了します。 何が悪いのでしょうか? 変数の宣言はすべて正確に行っています。 エクセル2003です。 よろしくお願いします ---- パスを省略しているのでカレントディレクトリからの相対パスがずれているのではないでしょうか? 「..¥幼稚部¥幼」という2カ所の所をフルパスにしてみてはどうでしょうか? (momo) ---- 一応、その他の所で気になった個所も・・・ >変数の宣言はすべて正確に行っています。 ですが >For x = 1 To fc の、xが宣言されていませんね。 あと >勤務日数 = 勤務日数 + Cells(gyou, 4).Value とかのCellsの親オブジェクトがわからないのでActiveなブックが変わると 思わぬエラーになる可能性があります。 For x = 1 To fc With Workbooks.Open("..¥幼稚部¥幼" & CStr(x) & ".xls") 勤務日数 = 勤務日数 + .ActiveSheet.Cells(gyou, 4).Value 年休日数 = 年休日数 + .ActiveSheet.Cells(gyou, 5).Value 年休時間 = 年休時間 + .ActiveSheet.Cells(gyou, 6).Value 勤務内実労働 = 勤務内実労働 + .ActiveSheet.Cells(gyou, 7).Value 勤務外実労働 = 勤務外実労働 + .ActiveSheet.Cells(gyou, 8).Value .Close SaveChanges:=False End With Next x くらいにはしておいた方が良さそうですね。 (momo) ---- momoさんありがとうございました。 やはり、ファイル読み込みができていませんでした。 フルパスは持ち運び上無理なので、 ThisWorkbook.Path を使ってやったらうまく動きました。 ご迷惑をおかけしました。 (おさむ) ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120125162535.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 96869 documents and 608041 words.

訪問者:カウンタValid HTML 4.01 Transitional