Здравствуйте!
Начал разбираться с экспортом в EXCEL из БЭСТ4 средствами харбора,столкнулся со следущей проблемой .
Не получается записать код программы для копирования только форматов с использованием специальной вставки .
Может кто подскажет как это сделать?
FUNCTION MAIN
LOCAL oApp,oWorkBook,oRange,oAS
LOCAL nLine:=3
#define xlRight -4152
#define xlBottom -4107
#define xlLeft -4131
#define xlCenter -4108
#define xlLandscape 2
#define xlPasteFormats -4122
#define xlNone = -4142
dbPush()
TRY
oApp := CreateObject( "Excel.Application" )
CATCH
Alert("Excel не доступен!")
RETURN .F.
END
altd()
oWorkBook:=oApp:WorkBooks:Add()
oAS:=oWorkBook:Worksheets():Add()
oAS:Name:="Test"
Вот так выглядет макрос автоматически созданный в EXCEL:
Range("B16:Y16").Select
Selection.Copy
Range("B17").Select
Selection.PasteSpeial Paste:=xlPasteFormats,_ Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Вот я так его переписал:
oRange:=oAS:Range("B16:Y16")
altd()
oRange:Copy (oAS:Range("B17"))
oAS:Range("B17"):Select()
// Selection:PasteSpecial (Paste:=xlPasteFormats,_ Operation:=xlNone, SkipBlanks:=.F., Transpose:=.F.)
Ругается на ошибку в этой строке - "Переменная не существует":
Selection:PasteSpecial (Paste:=-4122, Operation:=-4142,_ SkipBlanks:=.F., Transpose:=.F.)
oApp:visible:=.T.
dbPop()
RETURN
Начал разбираться с экспортом в EXCEL из БЭСТ4 средствами харбора,столкнулся со следущей проблемой .
Не получается записать код программы для копирования только форматов с использованием специальной вставки .
Может кто подскажет как это сделать?
FUNCTION MAIN
LOCAL oApp,oWorkBook,oRange,oAS
LOCAL nLine:=3
#define xlRight -4152
#define xlBottom -4107
#define xlLeft -4131
#define xlCenter -4108
#define xlLandscape 2
#define xlPasteFormats -4122
#define xlNone = -4142
dbPush()
TRY
oApp := CreateObject( "Excel.Application" )
CATCH
Alert("Excel не доступен!")
RETURN .F.
END
altd()
oWorkBook:=oApp:WorkBooks:Add()
oAS:=oWorkBook:Worksheets():Add()
oAS:Name:="Test"
Вот так выглядет макрос автоматически созданный в EXCEL:
Range("B16:Y16").Select
Selection.Copy
Range("B17").Select
Selection.PasteSpeial Paste:=xlPasteFormats,_ Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Вот я так его переписал:
oRange:=oAS:Range("B16:Y16")
altd()
oRange:Copy (oAS:Range("B17"))
oAS:Range("B17"):Select()
// Selection:PasteSpecial (Paste:=xlPasteFormats,_ Operation:=xlNone, SkipBlanks:=.F., Transpose:=.F.)
Ругается на ошибку в этой строке - "Переменная не существует":
Selection:PasteSpecial (Paste:=-4122, Operation:=-4142,_ SkipBlanks:=.F., Transpose:=.F.)
oApp:visible:=.T.
dbPop()
RETURN