我现在需要重复复制多张Excel表格的部分内容插入到另一个工作簿中作为一个新表。他有个特点是”需要复制内容中有一列是时间，而复制的内容就是以时间日期为阶段。每一天的内容全部复制在另一个工作簿中作为一张新表”。还有个特点就是"需要复制内容中有一列的内容是需要粘贴的工作簿的名称“。请为我分别用C语言和VBA代码写一个自动打开工作薄并复制的程序完成复制工作

使用C语言实现复制Excel表格内容的程序需要使用Excel的COM接口。以下是一个示例代码：

#include <iostream>
#include <Windows.h>
#include <tchar.h>
#import< "C:\Program Files (x86)\Microsoft Office\Root\Office16\EXCEL.EXE" \
    rename("DialogBox", "ExcelDlgBox"), rename("RGB", "ExcelRGB"), \
    rename("CopyFile", "ExcelCopyFile"), rename("ReplaceText", "ExcelReplaceText"), \
    exclude("IFont", "IPicture"), no_dual_interfaces>

using namespace std;

int main()
{
    CoInitialize(NULL);
    Excel::_ApplicationPtr pExcelApp;
    pExcelApp.CreateInstance("Excel.Application");
    pExcelApp->Visible = true;

    Excel::_WorkbookPtr pWorkbook = pExcelApp->Workbooks->Open("D:\\Source\\Excel1.xlsx");
    Excel::_WorksheetPtr pWorksheet = pWorkbook->ActiveSheet;

    Excel::RangePtr pRange = pWorksheet->Range["A1:C10"];
    for (int i = 1; i <= pRange->Rows->Count; i++)
    {
        Excel::RangePtr pCell = pRange->Item[i];
        COleVariant varValue = pCell->Value;
        cout << (LPCTSTR)(_bstr_t)varValue << endl;
    }

    pWorkbook->Close();
    pExcelApp->Quit();
    CoUninitialize();

    return 0;
}

使用VBA实现复制Excel表格内容的程序则可以直接在Excel中编写宏。以下是一个示例代码：

Sub CopyDataToAnotherWorkbook()
    Dim sourceWorkbook As Workbook, targetWorkbook As Workbook
    Set sourceWorkbook = Workbooks.Open("D:\Source\Excel1.xlsx")
    Set targetWorkbook = Workbooks.Open("D:\Target\Excel2.xlsx")
    
    Dim sheetName As String, targetSheet As Worksheet
    Dim sourceRange As Range, targetRange As Range
    Dim currentDate As Date, currentRow As Long
    
    For Each sourceSheet In sourceWorkbook.Sheets
        sheetName = sourceSheet.Name
        For currentRow = 1 To sourceSheet.UsedRange.Rows.Count
            currentDate = sourceSheet.Cells(currentRow, 1)
            If Not IsEmpty(sourceSheet.Cells(currentRow, 2)) Then
                sheetName = sourceSheet.Cells(currentRow, 2)
            End If
            Set targetSheet = targetWorkbook.Sheets(sheetName)
            Set targetRange = targetSheet.Range("A1")
            Set sourceRange = sourceSheet.Range("A" & currentRow & ":C" & currentRow)
            sourceRange.Copy targetRange
            Set targetRange = targetSheet.Range("A1:C1")
            targetRange.Offset(1).EntireRow.Insert xlShiftDown
        Next currentRow
    Next sourceSheet
    
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Save
    targetWorkbook.Close SaveChanges:=False
End Sub