エクセル2013：別のワークブックからデータをコピーするマクロを実行した後、マクロ

Question

This is the picture of Cell style menu problems

を実行した後に散らかってしまっマイセルスタイルのメニュー、私のセルのスタイルのメニューが空白になりました。

これは私のマクロのコードです：あなたは関係なく、あなたがあなたのファイルをきれいにする必要があり、そのうちの壊れたスタイルを持っていることのように

Sheets("Calofic-Daily Sale Report").Select 
Range("E1:W67").Copy 

Dim wbk As Workbook 
Dim folderPath As String 

folderPath = Application.ActiveWorkbook.Path 
FilePath = Dir(folderPath & "\Today, Todate & Year to date Dispatch of Calofic ******.xlsx") 

Set wbk = Workbooks.Open(folderPath & "\" & FilePath) 

Set ws = wbk.Sheets("Sheet1") 
ws.Range("A1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

wbk.Close True 
End Sub 

Answer 1

が見えます。以下の2つのオプション。

1.無料ツール

あなたはXLGeekの無料xlStylesToolをダウンロードして実行提案します。以下の手動の方法よりもはるかに優れた素晴らしいユーティリティです。ジップ
Edig zip modeでworbookを使用して

2.編集XML。場合リンクに下に追加そうするための手順は、これまでXLのフォルダに移動し、

オープンzipファイルを圧縮する

• 変更にXLSMまたはXLSBから拡張子を消失し、便利な場所
へのstyles.xmlをコピーします
• テキストエディタを使用してstyles.xmlを開きます。開いているcellstylesタグと閉じているcellstylesタグを見つけてそれらの間のすべてを削除します。
• ファイルを保存し、zipファイルにコピーします。
• 元の拡張子を復元します。