Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56014 / 76732

←次へ　｜　前へ→


	【25483】Re:VBAプログラムの間違いを指摘して欲し...

ponpon - 05/6/1(水) 22:14 -


	引用なし

	パスワード

こんばんは。
詳しく見ていないので、よくわかりませんが、
以下のようにすると最後まで走るようですが・・・

>　 bookname = InputBox("Please inter data workbook's name")
　　　Application.Workbooks.Open (bookname & ".xls")
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　　　　　　　　　　　　　　　追加　

>　newbookname = InputBox("Please inter new workbook's name")
　 ActiveWorkbook.SaveAs newbookname & ".xls"
　　　　　　　　　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　　　　　　　　　　　　追加　

　 Application.Windows(bookname & ".xls").Activate
　　　　　　　　　　　　　　　　　　　　　　↑　　　 ↑
　　　　　　　　　　　　　　　　　　　　　追加　　　変更

　 Application.Windows(newbookname & ".xls").Activate
　　　　　　　　　　　　　　　　　　　　　　　↑　　　　 ↑
　　　　　　　　　　　　　　　　　　　　　　　追加　　　変更
　 Cells(z, y) = sum

0 hits

▼

【25480】VBAプログラムの間違いを指摘して欲しいのですが 学生 05/6/1(水) 20:23