複数のシートを新しいブックにコピーします

応答1# ->にスキップ

3 #

oAnast 2017-05-03 01:093

こんにちは

これを試してください

次の名前の新しいwbでデータをエクスポートします:新しいファイル

Sub Export_data_in_new_WB_multi_shts()
'2017年5月2日
Dim wb1 As Workbook、wb2 As Workbook
Set wb1=ThisWorkbook
Dim sPath
sPath=wb1.Path& "\"
Dim vSht As Variant
vSht=Array( "WIP"、 "Bank Detail")
Dim x As Integer
Application.ScreenUpdating=False
Set wb2=Workbooks.Add(xlWorksheet)
For x=0 To UBound(vSht)
wb2.Sheets.Add after:= wb2.Sheets(wb2.Sheets.Count)
ActiveSheet.Name=vSht(x )
wb1.Sheets(vSht(x)).Range( "A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Range( "A1").PasteSpecial xlValues
Range( "A1").PasteSpecial xlFormats
ActiveSheet.UsedRange.EntireColumn.AutoFit
Next
Application.CutCopyMode=False
Application.DisplayAlerts=False
With wb2
.Sheets(1).Delete
.SaveAs Filename:= sPath&"new file.xlsx"
.Close False
End With
Application.DisplayAlerts=True
Application.ScreenUpdating=True
MsgBox "done"
End Sub

√

応答3# ->にスキップ

2 #

Muhamma 2017-05-03 06:01

こんにちは

これは私が欲しかったものです、どうもありがとう