excel - VBA复制和粘贴不格式化
问题描述
我有此代码,但它将原始文档中的单元格格式粘贴到主文件中,请问如何从输出中删除格式?
Option Explicit
Sub CopyPastefiles()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim MyFolder As String
Dim StartSht As Worksheet, ws As Worksheet
Dim WB As Workbook
Dim i As Integer
'turn screen updating off - makes program faster
'Application.ScreenUpdating = False
'location of the folder in which the desired TDS files are
MyFolder = "U:\Documents\DeleteMe\Sycle\"
Set StartSht = ActiveSheet
Set StartSht = Workbooks("masterfile.xlsx").Sheets("Sheet1")
'create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'get the folder object
Set objFolder = objFSO.GetFolder(MyFolder)
i = 1
'loop through directory file and print names
For Each objFile In objFolder.Files
If LCase(Right(objFile.Name, 3)) = "xls" Or LCase(Left(Right(objFile.Name, 4), 3)) = "xls" Then
'print file name to Column 1
Workbooks.Open Filename:=MyFolder & objFile.Name
Set WB = ActiveWorkbook
'print TOOLING DATA SHEET(TDS): values to Column 2
With WB
For Each ws In .Worksheets
StartSht.Cells(i + 1, 10) = objFile.Name
With ws
.Range("e6").Copy StartSht.Cells(i + 1, 4)
.Range("e7").Copy StartSht.Cells(i + 1, 5)
.Range("e8").Copy StartSht.Cells(i + 1, 6)
End With
i = i + 1
'move to next file
Next ws
'close, do not save any changes to the opened files
.Close SaveChanges:=False
End With
End If
'move to next file
Next objFile
'turn screen updating back on
'Application.ScreenUpdating = True
End Sub
谢谢你的帮助。
解决方案
.Copy
您可以使用.PasteSpecial Paste:=xlPasteValues
.
即类似的东西
.Range("e6").Copy
StartSht.Cells(i + 1, 4).PasteSpecial Paste:=xlPasteValues
为您的第一行。
或者您可以将单元格设置为等于您正在复制的范围,如您的问题评论中所建议的那样。
.StartSht.Cells(i + 1, 4) = .Range("E6")
推荐阅读
- python - flask/python 创建多个 TestCase 类返回 404
- python - 在 Python 中创建多级字典词性标注器
- c++ - C++ gcc`floorf`不是`std`的成员?
- django - 安装 SSL 后 Ubuntu 18.04 上的 Django 站点与 Apache2 无法正常工作
- ios - URLSession.dataTask(with:completionHandler:) 是否总是只调用一次completionHandler?
- c# - 从右向左移动时Unity 2D敌人移动脚本不翻转
- php - PHPspreadsheet 仅在 xlsx 时保存“Sheet1”,但在 xls 时可以
- python - Odoo:ValueError:字段 website_published 不存在
- angular - Ionic 3 标记未显示在谷歌地图中
- latex - 如何解决 R-Markdown 中 Latex 的问题?