Jump to content

Most

Members
  • Posts

    9
  • Joined

  • Last visited

About Most

  • Birthday August 16

Profile Information

  • Location
    Net
  • WWW
    yes
  • Interests
    AutoIT

Most's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Found it! Just for those who need it. The option that you have to use is: #pragma compile Example: #pragma compile(FileDescription, AutoIT app for blabla staff) #pragma compile(FileVersion, 1.0.0.1) #pragma compile(ProductName, SuperMega app) #pragma compile(ProductVersion, 1.0.0.1) #pragma compile(LegalCopyright, Made by Most)
  2. Hi, all. I have general question. How do i put file description to .exe file? I've tried this: #AutoIt3Wrapper_Res_Description #AutoIt3Wrapper_Res_Fileversion #AutoIt3Wrapper_Res_ProductVersion #AutoIt3Wrapper_Res_LegalCopyright=blabla But it doesn't work. My goal is to make file description (attached screenshot). I've tried also to play with adding '=' to all the the tags above. Also i've tried to search in SciTE help file, but didn't get any work result. Appreciate for help in advance. Regards, Most.
  3. It works!!! thx!
  4. It gives me "Value = 0" (but yes it opens excel window, but not specific file). #include <Excel.au3> Func _Excel_BookOpenEX($oExcel, $sFilePath, $bReadOnly = Default, $bVisible = Default, $sPassword = Default, $sWritePassword = Default, $bUpdateLinks = Default) ; Error handler, automatic cleanup at end of function Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc") #forceref $oError If Not IsObj($oExcel) Or ObjName($oExcel, 1) <> "_Application" Then Return SetError(1, @error, 0) If Not FileExists($sFilePath) Then Return SetError(2, 0, 0) If $bReadOnly = Default Then $bReadOnly = False If $bVisible = Default Then $bVisible = True Local $oWorkbook = $oExcel.Workbooks.Open($sFilePath, $bUpdateLinks, $bReadOnly, Default, $sPassword, $sWritePassword) If @error Then Return SetError(3, @error, 0) Local $oWindow = $oExcel.Windows($oWorkbook.Name) ; <== Modified If IsObj($oWindow) Then $oWindow.Visible = $bVisible ; <== Modified ; If a read-write workbook was opened read-only then set @extended = 1 If $bReadOnly = False And $oWorkbook.Readonly = True Then Return SetError(0, 1, $oWorkbook) Return $oWorkbook EndFunc ;==>_Excel_BookOpen Local $bOpenWorkBook = False, $oExcel = _Excel_Open() Local $oWorkbook Local $sFilePath = @ScriptDir & "trans.xlsx" $oWorkbook = _Excel_BookAttach($sFilePath) If @error Then $oWorkbook = _Excel_BookOpenEX($oExcel, $sFilePath) $bOpenWorkBook = True EndIf If $bOpenWorkBook Then $sCell = _Excel_RangeRead($oWorkbook, Default, "A2") ;~ Workbook was opened so read cell A2 Else $sCell = _Excel_RangeRead($oWorkbook, Default, $oExcel.ActiveCell.Address) ;~ Workbook was already open, read the active cell. EndIf MsgBox(4096, "Excel Cell Value", "Value = " & $sCell)
  5. Sorry. It's 3.3.14.2
  6. SciTE-Lite Version 3.5.4 Autoit v3 Excel Office 365 (Microsoft Office 365 ProPlus)
  7. Nothing special. Regular xlsx file. Empty book. i've just filled some sheets with a few numbers. Just for test. By hand it opens regularly
  8. error = 3, extended = 1 as i mentioned. Nothing. Or error, or it says "0". Depends of example. My general question - is there any other tag or reason that it doesn't work? i mean code should be fine. I've putted file into the folder with script (also tried other folders..)
  9. #include <Array.au3> #include <Excel.au3> #include <MsgBoxConstants.au3> ; Create application object and open an example workbook Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\trans.xlsx") If @error Then MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "\trans.xlsx'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; ***************************************************************************** ; Read data from a single cell on the active sheet of the specified workbook ; ***************************************************************************** Local $sResult = _Excel_RangeRead($oWorkbook, Default, "A1") If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Data successfully read." & @CRLF & "Value of cell A1: " & $sResult) Hi, all. Ok, here is the deal. I have simple excel file called trans.xlsx. It's located in the directory of script. In general i don't care where to store it. What i do need is to open excel file and copy one by one numbers from cells. I've tried different ways, examples. But i only get error, says: error = 3, extended = 1. I saw different posts from different years. I even tried to use simple example from manual file. But always get error. In general my goal get numbers one by one and post it to let's say search filed in my PC one by one. Or to notepad (but one by one, in kind of loop). I've learned how to copy or show in message box some info from other apps. But with excel i'm stuck. I'm able to open needed window based on "title" of excel. But i don't succeed of copying info from cells. Would be appreciate for any help. So, in this code i'm trying at least to read from cell A1. Doesn't matter what Sheet. I use Windows 10, Excel for Office 365. Thank you in advance.
×
×
  • Create New...