返回列表下一主題上一主題發帖

複製的問題

birdy0815

中學生 Rank: 2

帖子: 38
主題: 5
精華: 0
積分: 67
點名: 0
作業系統: winXP 和 win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-1-9
最後登錄: 2013-1-21

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-1-10 19:29 | 只看該作者

複製的問題

我在工作表1 把要copy的資料選上(欄和列寬都設定好) 然後要複製到工作表2 結果東西欄和列寬都跑掉。我用選擇性貼上用欄寬度→確定，再一次選擇性貼上全部→確定結果欄寬度對了但列的寬度是不對(都是16.5) 要如何解決而我要copy的資料每個列的寬度不見得一樣。

樓主熱帖

softsadwind

中學生 Rank: 2

帖子: 129
主題: 3
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2018-11-10

5^#

發表於 2011-1-14 14:15 | 只看該作者

分頁另存檔案，直接在開啟檔案所在位置另存新檔

Sub SaveSheet()
'以下程式碼試用 Excel 200~2010版
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
      If Val(Application.Version) < 12 Then
         'Excel 版本 97-2003
         'xlWorkbookNormal -4143 一般活頁簿
         FileExtStr = ".xls": FileFormatNum = -4143
      Else
         Select Case .Parent.FileFormat
            'xlOpenXMLWorkbook 51 開啟 XML 活頁簿
         Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
         Case 52:
            If .Parent.HasVBProject Then
                  'xlOpenXMLWorkbookMacroEnabled 52 開啟 XML 活頁簿巨集啟用
                  FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                  FileExtStr = ".xlsx": FileFormatNum = 51
            End If
         End Select
      End If
      .Copy
      Application.DisplayAlerts = False
      ActiveWorkbook.SaveAs .Parent.Path & "\" & .Name & FileExtStr, FileFormatNum
      Application.DisplayAlerts = True
      ActiveWorkbook.Close SaveChanges:=False
End With
End Sub

50 字節以內
不支持自定義 Discuz! 代碼

TOP

birdy0815