|
▼γ さん:
>▼ちえ さん:
>>別ブックからシートを取り込んでコピーするマクロを組んでいます。
>>図面があるのですが、実行すると『このイメージは現在表示できません』と出ます。
>それは、どの行を実行したときに表示されるのですか?
>いずれにしても、開いたファイルの内容に依存した話のようなので、
>なかなか的確なコメントをつけるのは難しいかもしれませんねえ。
すいません。
どう質問していいかわからずで言葉足らずでした。
上記の分は解決して、マクロを組みなおしたのですが、
次は保存ができなくなってしまいました。。
『いくつかの機能を削除、または修復することにより〜‥』
みたいなエラーが出て保存ができません。
何かアドバイスをお願い致します。
Sub 取込()
Application.ScreenUpdating = False
fna = Application.GetOpenFilename(Title:="\")
If fna = "False" Then Exit Sub
Workbooks.Open fna
f0 = ThisWorkbook.Name
f1 = ActiveWorkbook.Name
s1 = ActiveSheet.Name
If f1 Like "*0*" Then
f2 = "0"
ElseIf f1 Like "*1*" Then
f2 = "1"
ElseIf f1 Like "*2*" Then
f2 = "2"
ElseIf f1 Like "*3*" Then
f2 = "3"
ElseIf f1 Like "*4*" Then
f2 = "4"
ElseIf f1 Like "*5*" Then
f2 = "5"
End If
Windows(f1).Activate
ActiveSheet.Cells.Select
Selection.Copy
ThisWorkbook.Activate
sc = Sheets.Count
For i = sc To 1 Step -1
sn = Sheets(i).Name
If sn = f2 Then
Sheets(sn).Select
Rows("1:35").Select
ActiveSheet.Paste
Rows("1:35").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Windows(f1).Close
End Sub
|
|