VBA 逐个打开文件 逐个粘贴数据到新文件

这个问题可以回答。你可以使用 VBA 代码编写一个循环，逐个打开文件，再将数据逐个粘贴到新文件中。以下是一个简单示例代码：

Sub CopyData()
Dim myFile As String
Dim myPath As String
Dim myWorkbook As Workbook
Dim newWorkbook As Workbook
Dim copyRange As Range

Set newWorkbook = Workbooks.Add

myPath = "C:\Files\" '文件所在路径
myFile = Dir(myPath & "*.xlsx") '获取第一个xlsx文件

Do While Len(myFile) > 0 '当找到xlsx文件时
Set myWorkbook = Workbooks.Open(myPath & myFile) '打开文件
Set copyRange = Range("A1:F20") '复制的范围
copyRange.Copy '复制范围

newWorkbook.Activate '激活新建的工作簿
Range("A1").Insert Shift:=xlDown '粘贴数据
myWorkbook.Close '关闭文件
myFile = Dir '获取下一个xlsx文件
Loop

End Sub

相关问题

excel剪贴板上保存的多次复制的数据用vba批量粘贴到指定单元格

在Excel中，可以使用VBA宏来批量粘贴剪贴板上保存的多次复制的数据到指定单元格。

首先，需要打开VBA编辑器。可以通过按下ALT+F11来打开VBA编辑器。

在VBA编辑器中，需要创建一个新的模块来编写宏代码。

首先，我们需要通过VBA代码来获取剪贴板上的内容。可以使用以下代码：

Dim clipboardData As DataObject
Set clipboardData = New DataObject
clipboardData.GetFromClipboard

接下来，我们可以将获取到的剪贴板内容分割为多个数据项。可以使用Split函数来实现，代码如下：

Dim clipboardText As String
clipboardText = clipboardData.GetText

Dim dataArray() As String
dataArray = Split(clipboardText, vbCrLf)

然后，我们可以循环遍历数据数组，逐个将数据粘贴到指定单元格。假设我们要将数据粘贴到"A1"开始的单元格区域，可以使用以下代码：

Dim pasteRange As Range
Set pasteRange = Range("A1")

For i = 0 To UBound(dataArray)
    pasteRange.Offset(i, 0).Value = dataArray(i)
Next i

最后，我们可以使用以下代码清除剪贴板内容：

clipboardData.Clear

完成以上步骤后，可以保存并关闭VBA编辑器。

现在，只需要在Excel表格中复制多个数据并运行该宏，剪贴板上的数据就会被批量粘贴到指定单元格区域。

如何在VBA中限制粘贴选项，比如只允许数值类型的粘贴？

在VBA中，如果你想限制粘贴操作只保留数值类型的数据，可以使用`.Value`属性而非`.PasteSpecial`方法，因为`.Value`会忽略所有非数据的部分，如公式、超链接等。以下是示例代码：

Sub PasteAsValues()
    Dim source As Range, target As Range
    Set source = Selection '假设源范围是当前选中的单元格
    Set target = Range("B1") '设定目标位置

    If source.Cells.Count > 1 Then '如果源范围有多个单元格
        For Each cell In source
            cell.Value = cell.Value '仅保留数值
            target.Offset(0, source.Columns.Count).Activate '移动到下一行的开始
            target.Value = cell.Value '粘贴数值到目标
        Next cell
    Else
        source.Value = source.Value '单个单元格直接赋值
        target.Value = source.Value
    End If
End Sub

这段代码首先检查是否有多行或多列的数据，如果是，逐个单元格获取其数值，并将其粘贴到目标位置；如果只有一个单元格，就直接复制并粘贴数值。