人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

大量のページがあるMicrosoft wordのファイルを、好きなところで区切っていくつかのファイルに分割する簡単な方法を探しています。同じように、多くのシートがあるMicrosoft Excelのファイルを、シートごとに一つずつのファイルにする方法が知りたいです。
なお、新規ファイルにコピー&ペーストしていく方法は、手間がかかるので最後の手段として考えております;;
皆様の力をお貸し下さい。お願いします。

●質問者: polyamid
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel Microsoft Word コピー ファイル
○ 状態 :終了
└ 回答数 : 7/7件

▽最新の回答へ

1 ● mil_mil
●10ポイント

http://www.yahoo.co.jp/

Yahoo! JAPAN

Excelはシートを新規ブックに移動して名前を付ければ1シートずつに分かれます。

Wordは今から考えます。すみません。

◎質問者からの返答

それだと…シート分だけその作業を繰り返すんですよね。。。


2 ● kanetetu
●40ポイント

http://www.vector.co.jp/soft/win95/util/se302063.html

Vector:xlsDivi (Windows95/98/Me / ユーティリティ) - ソフトの詳細

http://www.vector.co.jp/magazine/softnews/030329/n0303294.html

Vector: テキストファイルワークス - 新着ソフトレビュー

どうぞ

◎質問者からの返答

Excelのほうはおみごとです。勝負あった!

2つめはdocファイルに対応してないのが残念ですね…

罫線情報なども多数含むので、純粋なTXTではないのです。


3 ● akimasa2000
●10ポイント

http://support.microsoft.com/default.aspx?scid=%2Fdirectory%2Fwo...

ƒ}ƒCƒNƒƒ\ƒtƒg ƒTƒ|[ƒg ƒIƒ“ƒ‰ƒCƒ“

Excelの場合は、シートの移動またはコピーで、移動先ブック名のところで(新しいブック)をクリックすれば、分けられます。

Ctrlキーを使って複数選択すれば便利です。

◎質問者からの返答

ありがとうございます。

普段のちょっとした作業はこっちのほうが便利そうですよね^^


4 ● cx20
●40ポイント

http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F200...

[hondarer-soft] to [cx20.main.jp]

各シートをブックに保存するサンプルコードを書いてみました。

Sub Sheet2Book()

Dim i

Dim nCount

Dim strBookName

strBookName = ”E:¥home¥edu¥excel¥sheet2book¥test_”

nCount = Sheets.Count

Dim strSheetName

For i = 1 To nCount

strSheetName = Sheets(i).Name

Sheets(i).Select

Sheets(i).Copy

ActiveWorkbook.SaveAs Filename:=strBookName & strSheetName & ”.xls”

ActiveWindow.Close

Next

End Sub

◎質問者からの返答

マクロ!すばらしいw

こっちも技あり一本です☆


5 ● lobelia
●20ポイント

http://hp.vector.co.jp/authors/VA012149/showcase.htm

エクセル変割野郎

エクセルのシートを分割してくれます

ワードの分割方法はわかりませんでした

すいません.

私は,元ファイルのコピーをいくつか作成しておいて

それぞれ,削っていく方法で分割しています.

これもコピペとおなじくらい手間ですね.

すいません

◎質問者からの返答

なるほど…削っていく方法もあるのか^^

そっちのほうがメモリ負担がなくていい!


1-5件表示/7件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ