.vbs (скрипт) для копирования всего листа из файла в другой файл

Какой код .vbs можно использовать для копирования всего листа из файла excel в другой?

Я пробовал использовать следующее, но строки 2 и 3 отображают ошибку ( Error Image ), и без них скрипт запускается, но ничего не делает.

Sub Copy_Sheet() Dim x As Workbook Dim y As Workbook Set x = Workbooks.Open("C:\File1.xls") Set y = Workbooks.Open("C:\File2.xlsx") y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1") y.Save y.close x.Close End Sub 

 Dim xlapp ' as excel object Dim WSx, WSy ' as excel worksheet Dim x, y ' as workbook Set xlapp = CreateObject("Excel.Application") Set x = xlapp.Workbooks.Open("C:\File1.xls") Set y = xlapp.Workbooks.Open("C:\File2.xlsx") Set WSx = x.Worksheets("Sheet1") Set WSy = y.Worksheets("Sheet1") WSx.Copy WSy ' copy worksheet to other workbook Set WSx = nothing Set WSy = nothing y.Save y.close x.Close 

Это должно скопировать лист с x на y без каких-либо проблем.

вы можете попробовать это

 Dim xlapp ' as excel object Dim WSx, WSy ' as excel worksheet Dim x, y ' as workbook Set xlapp = CreateObject("Excel.Application") Set x = xlapp.Workbooks.Open("C:\File1.xls") Set y = xlapp.Workbooks.Open("C:\File2.xlsx") Set WSx = x.Worksheets("Sheet1") Set WSy = y.Worksheets("Sheet1") WSy.Range("A1").value = WSx.Range("A1").value Set WSx = nothing Set WSy = nothing y.Save y.close x.Close 

VBA набрал Dims like

 Dim x As Workbook 

являются незаконными в VBScript (для разницы между VB и VBS начните чтение здесь ). Это объясняет ошибку.

  • Запуск кода с VBA на VBScript обратно в VBA
  • Как заполнить таблицу html данными из базы данных и файла xlsx с помощью ASP Classic
  • Ошибка «переполнения» Excel для 500 000 строк
  • Запуск макроса Excel без его открытия
  • Я не могу закрыть приложение Excel
  • Преобразование VBA unmerge и fil в VBscript unmerge и fill
  • VBS pharser в листе Excel
  • Сценарий VB для обновления Excel
  • Ошибка сценария Vb
  • Передача массива из Java в VBScript
  • Чтение первого появления ячеек в строке и переход к следующему - VBS
  • Interesting Posts

    Фильтрация Кодов областей в Excel по VBA

    Подсчитайте детали по конкретному подробному набору данных

    VBA – сравнить ячейки в двух столбцах с ячейками в двух других столбцах

    Поиск динамического числа строк в столбце A для определенной строки в VBA

    Являются ли свойства модуля класса VBA медленными по сравнению с доступом к полям пользовательских типов?

    VBA – копирование уникальных значений в разные листы

    Удалить всю строку в конкретном листе. Основываясь на значении в Excel VBA

    countifs named range дает ошибку #VALUE

    Сводная таблица из нескольких таблиц

    Excel 2011 Mac VBA Combobox значение

    Excel: как скопировать часть содержимого ячеек в другие смежные ячейки на соответствующих строках

    сохраняя значение от имени переменной «QW1I5K20» в элементе массива Q с использованием R

    Игнорировать определенный символ в ячейках перед вычислением среднего значения столбца

    Передача результата пользовательской формы в переменную кода vba

    Электронная почта из Outlook с значением ячейки Excel в теме

    Давайте будем гением компьютера.