エクセルの学校：全文検索：Hyper Estraier：フォルダ　ブック　シート　転記

Results of 1 - 1 of about 384 for フォルダ　ブック　シート　転記 (0.037 sec.)

フォルダ (4447), ブック (11580), シート (35663), 転記 (4285)

[[20200406184337]]: #score: 8791; @digest: eb71a8108cb134991b8080b81ff351ee; @id: 82947; @mdate: 2020-04-07T23:00:24Z; @size: 6980; @type: text/plain; #keywords: cfld (18705), 理フ (14697), 元エ (14224), 巡回 (9286), 記元 (7368), 先フ (6549), ダ」 (6492), fpath (6306), 「処 (6067), vbnormal (5997), ルダ (4863), ォル (4844), 自ブ (4816), 元フ (4103), fname (3806), selecteditems (3444), フォ (3399), 転記 (3311), 力フ (2904), ロブ (2867), アロ (2797), ダイ (2658), ブッ (2492), グボ (2249), たブ (2013), 分的 (2006), 番目 (1998), ファ (1961), 記先 (1784), 宣言 (1652), ァイ (1518), イア (1507); 『データ転記について』（K）
お世話になっております。現在マクロブックにシート1に所定のフォルダにある転記元エクセルのシート1からあるセルのデータを転記するマクロを作ろうとしているのですが、うまくいきません。お力を貸していただけないでしょうか。・転記元エクセルにはシート2以降（ファイルによって数は不確定）もあるのですが、それらをシートコピーでマクロブックにコピーし、転記元のファイル名で名前を付けて保存（.xlsx形式）したいです。・ファイル保存先もファイルダイアログで選びたいです。現状のコードです。うまくいっておりませんが。。。。 Subデータ転記() Dim i, s, t, maxR, pno As Long Dim wb As Workbook Dim sh1, sh2, sh3 As Worksheet Dim fpath, fname As String, cFld As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "対象フォルダー選択" If .Show = True Then cFld = .SelectedItems(1) & "¥" Else Exit Sub End If End With Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False fname = Dir(fpath & "*.xl*", vbNormal) fpath = ThisWorkbook.Path Do Until fname = "" ' Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) ' Set sh2 = wb.Worksheets(1) Set wb = Workbooks.Open(cFld & fname, UpdateLinks:=0) Set sh1 = ThisWorkbook.Sheets(1) Set sh2 = wb.Sheets(1) '転記（例として1セルのみ） sh1.Range("A6").Value = sh2.Range("B6").Value ThisWorkbook.SaveAs Filename:=cFld & fname wb.Close SaveChanges:=False fname = Dir() Loop Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True MsgBox "終了しました。" End Sub ＜使用 Excel:Office365、使用 OS:Windows10 ＞ ---- まずは、どんな手順にしたらよいか、箇条書きで、書き出してみてはどうでしょうか。（マナ） 2020/04/06(月) 18:56 ---- 同じ方ですよね。 [[20200402200750]] 『フォルダー選択機能』（L） [[20200403115208]] 『条件の分岐』（K）（マナ） 2020/04/06(月) 19:01 ---- 適当に切り貼りしてもダメですよ。【cFld】 = .SelectedItems(1) & "¥" fname = Dir(【fpath】 & "*.xl*", vbNormal) （もこな2 ） 2020/04/06(月) 19:59 ---- ＞現状のコードです。うまくいっておりませんが。。。。上手く行ってないと言われても、少し表現が曖昧ですね。コードを動かしてみれば解るかも知れませんが、期待する結果に対して、どうなってしまうかを言ってください。（まっつわん） 2020/04/07(火) 09:32 ---- まっつわんさんの指摘もですが、＞転記元エクセルにはシート2以降もあると仰ってますが、 Set sh2 = wb.Sheets(1) とされているので1番目のシートしか対象になってないですね。いきなり正解を求めるのではなく、一度、やりたいことを疑似コードみたいに書き出してみてはどうでしょうか? （もこな2 ） 2020/04/07(火) 09:51 ---- ご回答ありがとうございます。説明が悪く申し訳ございません。やりたいことを箇条書きにします。 ?@マクロつきの転記先ファイルを開き、マクロ実行ボタンを押す。 ?Aファイルダイアログで転記元ファイル（XLSX）が格納されているフォルダを選択 ?Bファイルダイアログで出力策フォルダを指定 ?C転記元ファイルの内容を転記先ファイルに転記 ※転記元ファイルシート1の内容はsh1.Range("A6").Value = sh2.Range("B6").Valueのように転記転記元ファイルのシート2以降はシートコピーで対応（画像なども貼り付けてあります） ?D転記先ファイルにおいて転記内容のリセット（処理返し前のシート1ののみの状態にする） ?E次のファイルにループ開始というような流れです。（K） 2020/04/07(火) 10:56 ---- ＞Bファイルダイアログで出力策フォルダを指定 ↑要りますか? 仰ることを整理するとこうなりません? まくろスタート「処理フォルダ」を宣言するそのほか必要な変数を宣言するユーザーにダイアログボックスで対象の【フォルダ】を選んでもらう選ばれたフォルダのパスを「処理フォルダ」に格納する「処理フォルダ」を巡回してExcelブック(*.xlsx)だったら開く開いたブックの1番目のシートの必要範囲をコピー自ブックの1番目のシートのA6セルに値のみ貼付開いたブックの2〜最後のシートまでを巡回して開いたブックのn番目のシートを、自ブックの最後のシートの後ろにコピー挿入する。 シートの巡回おわり開いたブックを閉じる次のブックを探す未処理のブックが無くなるまで繰り返すまくろ終わり（もこな2 ） 2020/04/07(火) 12:57 ---- ファイルダイアログで出力先フォルダを指定がにないと転記したファイルはどこに保存されますか? 任意のフォルダに保存したいので。。。あとシート巡回終わりの後に名前を付けて保存（上記任意のフォルダに）がいる気がします。（K） 2020/04/07(火) 13:08 ---- 違いますかね? （K） 2020/04/07(火) 16:05 ---- ＞任意のフォルダに保存したいので。。。あぁなるほど。保存フォルダも指定させたいのですね。なら必要ですね。まくろスタート「処理フォルダ」を宣言する「出力フォルダ」を宣言するそのほか必要な変数を宣言するユーザーにダイアログボックスで対象の【フォルダ】を選んでもらう選ばれたフォルダのパスを「処理フォルダ」に格納するユーザーにダイアログボックスで対象の【フォルダ】を選んでもらう選ばれたフォルダのパスを「出力フォルダ」に格納する「処理フォルダ」を巡回してExcelブック(*.xlsx)だったら開く開いたブックの1番目のシートの必要範囲をコピー自ブックの1番目のシートのA6セルに値のみ貼付開いたブックの2〜最後のシートまでを巡回して開いたブックのn番目のシートを、自ブックの最後のシートの後ろにコピー挿入する。 シートの巡回おわり開いたブックを閉じる次のブックを探す未処理のブックが無くなるまで繰り返す出力フォルダに保存するまくろ終わり（もこな2 ） 2020/04/07(火) 20:24 ---- もなこ2様ありがとうございます。今回ばかりはどうしてもあまり時間がなく、コード化をお願いできませんでしょうか… 上のカードも自分的には決して適当に切り貼りしたつもりはありません… 次回以降は自力で頑張りますので、お願いします。（初心者） 2020/04/07(火) 20:42 ---- ＞マクロブックにコピーしいちいち、マクロブックを介する必要があるんですか? コピー元ブックを丸ごと格納先フォルダにコピーして、そのブックから不必要なシートとデータをクリアすればいいんじゃないですか? どんなシートとデータが残るべきなのか分からないので、どんな手順が効率的なのかは別途考える必要があるとは思いますけど。（半平太） 2020/04/08(水) 00:35 ---- ＞今回ばかりはどうしてもあまり時間がなく、コード化をお願いできませんでしょうか… そういう話であれば、私は興味が無いのでパスです。＞上のカードも自分的には決して適当に切り貼りしたつもりはありません… ならば、ステップ実行して確かめてみましたか? cFld = .SelectedItems(1) & "¥" fname = Dir(fpath & "*.xl*", vbNormal) fpath = ThisWorkbook.Path 例えば↑では、 (1) データ元があるはずのフォルダパスは「cFld」にあると思われるが、「fpath」で探している (2) 参考にしたものは「*.xl*」ではなく「*.xls?」だったのではないか (3)「fpath」が正しかったとして、Dir関数で使った後に取得してるのはおかしい (4) 〃 フォルダパスとファイル名の間に「¥」が足りない等がおかしいと思います。もし、気が変わって自分で頑張ってみるならば、ちゃんとインデントを付けてからステップ実行してみて、辻褄があうコードになっているのか確認してみることをおすすめします。（もこな2 ） 2020/04/08(水) 08:00 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200406184337.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ