エクセル2003です。
マクロが組まれたワークブックにて以下のマクロを起動します。
選択したエクセルファイルのSheet1のデータを
マクロが組み込まれたブックのシート(マスタ)にコピーし
選択したファイルには何もしないで閉じます。
選択ファイルの中でF列だけが書式設定(文字列)になっていて
それがコピーされたシート(マスタ)では以下のように表示されてしまいます。
選択した
ファイル → シート(マスタ)での表示
での表示
500510228 → 5.01E+08
400302694 → 4E+08
403002693 → 4.03E+08
400302695 → 4E+08
400302939 → 4E+08
これはどのようにすれば選択したファイル
で表示されていたように出来ますか?
ちなみに処理終了後、シート(マスタ)の
F列全行の書式設定を数値にしたら選択したファイルと同じ
表示になりましたが、それしか方法は無いでしょうか?
よろしくお願いします。
Sub ファイル取り込み()
'2013年4月11日
Dim 選択ファイル
Dim 選択済ファイル As Worksheet
Dim x As Long
ThisWorkbook.Sheets("マスタ").Select
Cells.Select
Selection.Delete Shift:=xlUp
MsgBox "編集したいデータを選択してください", vbInformation, "手順"
MsgBox "ファイル選択画面を開きます", vbInformation, "ファイル選択"
選択ファイル = Application.GetOpenFilename
If 選択ファイル = False Then
MsgBox "中止します", vbExclamation
Exit Sub 'キャンセル選択時
Else
Workbooks.Open 選択ファイル
End If
'選択ファイルが正しいか確認。シート名(最新部品登録表)が存在するか確認。
For Each 選択済ファイル In Worksheets
If 選択済ファイル.Name = "最新部品登録表" Then 判定 = True
Next 選択済ファイル
If 判定 = False Then
MsgBox "選択したファイルが" & vbCrLf & _
"間違っている可能性があります。", vbExclamation, "【警告】"
MsgBox "今までの作業を保存しないで" & vbCrLf & _
"プログラムを終了します", vbExclamation, "終了"
ActiveWorkbook.Close SaveChanges:=False '選択ファイルを何もしないで閉じる
Exit Sub 'プログラム終了
Else
End If
Worksheets("最新部品登録表").Select
x = Cells(Rows.Count, "A").End(xlUp).Row
Rows("1:" & x).Copy ThisWorkbook.Sheets("マスタ").Range("A1")
ActiveWorkbook.Close SaveChanges:=False
End Sub
No.1ベストアンサー
- 回答日時:
//////
Worksheets("最新部品登録表").Select
x = Cells(Rows.Count, "A").End(xlUp).Row
Rows("1:" & x).Copy
With ThisWorkbook.Sheets("マスタ").Range("A1")
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlAll
End With
ActiveWorkbook.Close SaveChanges:=False
End Sub
とか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセルで使えるかわいい枠を...
-
エクセルのマウス操作(左クリ...
-
エクセルで積分
-
EXCELで上書き保存しないと反映...
-
EXCELで同一名のファイルがある...
-
ASC関数が上手く出来ない!
-
ExcelファイルがDoxillionに突...
-
メール添付されているファイル...
-
エクセルでの入力後の動きが遅い
-
エクセルでファイルを閉じても...
-
エクセルのカメラ機能を、700個...
-
時刻の計算の仕方教えてくださ...
-
エクセルの画面を二つ並べて作...
-
エクセルにクリックすると指定...
-
開いてるファイル(エクセル等)...
-
excelとCSVについて質問です! ...
-
三四郎のファイルをエクセルで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
エクセルでファイルを開かずに...
-
Excel 2枚目のブックが開かな...
-
CPU使用率が100%となっ...
-
エクセルで他のファイルのセル...
-
マクロで別ファイルのシートコ...
-
複数のtxtの特定部分を抽出し、...
-
PhotoshopでExcelのファイルが...
-
ファイル内にある数字の出現回...
-
MATLABでcsvファイルを読み込も...
-
エクセルマクロ 数式【VLOOKUP...
-
one drive からExcel onlineを...
-
excel ファイル
-
マクロでシートのデータをコピ...
-
EXCELで関数が使えなくなった?
-
エクセルマクロ(vba)のFSO.Open...
-
エクセルでハイパーリンクが貼...
-
エクセル(Excel)で別ファイルと...
-
エクセル保存後に別のブックの...
-
複数ファイルの同じ行のデータ...
おすすめ情報