копирование со здвигом

[angej]

привет! возникла у меня еще одна идейка в упрощении своей роботы но не знаю на сколько это реально сделать....

вопрос такой:

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

[atavin-ta]

Код: Выделить всё

Sub CopyCols()
    Sheets("Лист1").Columns("A:B").Copy
    Sheets("Лист2").Range("A1").Select()
    ActiveSheet.Paste
    Sheets("Лист1").Select
    Sheets("Лист1").Columns("D :D ").Copy
    Sheets("Лист2").Range("E1").Select
    ActiveSheet.Paste
    Sheets("Лист2").Range("A1").Select()
End Sub

, или ты про аксес?

[angej]

сам механизм понятен... теперь буду пробовать реализовать его под свои нужды... с созданием разных переменных спасибо!!!

[atavin-ta]

Это самый тупой и дряной способ. Лучше циклом и без буфера.

[angej]

буду конечно пробовать сделать в цыкле... я так понимаю сдесь нужно делать два цыкла или можно как-то управиться одним? и еще, что значит без буфера

[atavin-ta]

Одним. В теле три присавивания ячеек ячейкам.
Примерно так:

Код: Выделить всё

Sub CopyClos
 dim i as integer
 for i=1 to 65536 step 1
  Sheets("Лист2").Cells(i,1)=Sheets("Лист1").Cells(i,1)
  Sheets("Лист2").Cells(i,2)=Sheets("Лист1").Cells(i,2)
  Sheets("Лист2").Cells(i,5)=Sheets("Лист1").Cells(i,4)
 next i
end sub

Этот вариант тоже, возможно, не лучший. А без буфера - это без буфера обмена. То есть без paste/copy.

[PataFromOzz]

Для копирования файла, на delphi нужно использовать "CopyFile", где конкретно нужно указывать какой файл нужно копировать.
Но мне нужно скопировать все файлы, которые находятся на флешке
Может у кого-нибудь есть такой исходник?

[VictorM]

PataFromOzz вообще-то это несколько не по теме))