Quantcast
Channel: Active questions tagged excel - Stack Overflow
Viewing all 88706 articles
Browse latest View live

How to add top line to stacked column chart in EPPlus

$
0
0

I have a column stacked (bar) chart that relates percent (0-100%) as Y axis and a location on the X axis. Works fine. I would like to add a straight line at a fixed percentage (like 92%), possibly in red across the top horizontal. This would be an indicator if the location went below the 92% mark. This is a C# Windows VS 2017 solution with EPPlus.

Suggestions?

I am hoping I can only do this by drawing a line object that happens to lay on top of the graph, I don't think that would work if the user resizes the graph.


How to click a button, which does not have tag name/id, on web page in VBA?

$
0
0

I have below code in a web page.

<form class="search" target="_blank" method="get" action="Search.mvc/advanced">
    <input aria-haspopup="true" aria-autocomplete="list" role="textbox" autocomplete="off" class="quick ui-autocomplete-input" name="q" id="search-box" placeholder="Search" type="search">
    <button type="button" class="advanced" title="Advanced Search"><span class="icon"></span></button>
</form>

I want to click a button provided for search box. The web page code does not have tag name or ID.

I am using IE 8 browser.

Do-Loop with multiple conditions in VBA

$
0
0

This is my first question here and I must admit, I was not able to find any solution so far here or elsewhere. Here is the problem:

I wanted to program a code, which is supposed to do the following:

  • Ask the user how many rows are needed
  • Ask, how many columns are needed
  • Create a matrix, where in the first column all rows are numbered, in the first row all columns are numbered and within the matrix, all these numbers are the multiplied (row 3/column 4 contains 12, for example).
  • Finally, all prime numbers shall be colored.

My problem starts with the last step (in my code beginning at "'Primzahlen hervorheben"). For each combination of row and column I use two for loops, in which I first assume, the product IS a prime number by setting primzahl = true and set k = 2, which is 1 upped through all numbers up to the product itself... BUT for some reason, k keeps growing and eventually reaches the five digits area, before it crashes. I guess, the problem must be in this line:

Do While (primzahl = True) Or (k <= i * j) Or (i * j <> 1)

I connected all conditions as one would in an if construct. The Editor itself does not seem to have a problem with this, but why does it ignore the second condition, which does not allow for k to become larger than i * j? Am I missing something?
Just to put it in words: The loop shall continue, as long as

  • it being not a prime number proves to be the case (primzahl = false), OR
  • k is smaller or equal to i * j, OR
  • i * j is not 1

This case is no emergency or anything, I just want to know, where the hook is. I would appreciate your support and hope, to get some helpful advise.

Sub rechnen()
    'Zellen leeren
      Cells.ClearContents
      Cells.ClearFormats

    'Variablen definieren
      Dim i As Integer, j As Integer, k As Integer, iMax As Integer, jMax As Integer, primzahl As Boolean

    'Variablen Werte zuweisen
      iMax = 3 'InputBox("Anzahl Zeilen")
      jMax = 5 'InputBox("Anzahl Spalten")

    'Eigentliche Prozedur
      For i = 1 To iMax
        Cells(1 + i, 1).Value = i
        For j = 1 To jMax
          Cells(1, 1 + j).Value = j
          Cells(1 + i, 1 + j).Value = i * j
        Next j
      Next i

    'Spaltenbreite anpassen
      ActiveSheet.UsedRange.Columns.AutoFit



    'Primzahlen hervorheben
      For i = 1 To iMax
        For j = 1 To jMax
          k = 2
          primzahl = True
          ''''''''
          Do While (primzahl = True) Or (k <= i * j) Or (i * j <> 1)
            If Cells(1 + i, 1 + j).Value Mod k = 0 Then
              primzahl = False
              Exit Do
            End If
              k = k + 1
          Loop
          ''''''''
          If primzahl = True Then
            Cells(1 + i, 1 + j).Interior.Color = vbRed
          End If      
        Next j
      Next i

End Sub
``

Why isn't the math being completed in my code?

$
0
0

I'm trying to run a script that will convert all units to just one type of unit. The code runs without any errors and completes the task, but when I open the new spreadsheet, the math hasn't been computed. Not sure what I am missing here and hoping figure out what I'm doing wrong.

df = pd.read_excel(r'C:\Users\p_san\OneDrive\Documents\test\mydata.xlsx', index_col=0)  

def _update(serie):
    val = serie["QUANTITY"] 
    volume, time = serie["QUANTITY_UNITS"].split('/')

    if time == 'year':
        return serie
    elif time == "day":
        serie["QUANTITY"] = val * 365
    elif time == 'sec':
        serie["QUANTITY"] = val * 3600 * 24 * 365
    # Update measure col
    serie["QUANTITY_UNITS"] = 'm3/year'

    return serie

new_df = df.apply(_update, axis=1)
new_df.to_excel('new_file2.xlsx')

here is photo of the data

Adding, Subtracting, Maintaining Values Based on Result in Excel

$
0
0

I want to set up an automated (i'm assuming if statements) system that adds subtracts based on result. Below is an example of what it'll look like. Basically I don't want to type in the total manually. The system will do it for me based on the result word instead of doing mental math.

enter image description here

How to identify duplicates between 2 different sheets of same file in Excel?

$
0
0

I have two columns of data in Sheet 1 and two columns of data in Sheet 2. Now I want to find the duplicates between these two columns of different sheets using any formula.enter image description here

VBA Wont unbolden on user_form

$
0
0

I have some code that enters Correct or Wrong in Labels on a userform. I wanted to Colour the Word "Wrong" and embolden it. That works fine but if the answer becomes Correct the colour of the font reverts to black as desired but the emboldening persists. Ive found some references to similar issues, something about having to refer to the object from some parent class or something.

ive searched google and not been able to find an answer, theres help that i cant understand on microsoft forum pages.https://answers.microsoft.com/en-us/msoffice/forum/all/cant-set-fontbold-property-to-false/a006b96b-d1ec-41a4-8411-f5774941a5a0

https://www.ozgrid.com/forum/forum/help-forums/excel-general/25823-if-bold-then-make-not-bold-if-not-bold-then-make-bold

Private Sub CommandButton3_Click()
'
' showwrong Macro
'
Dim i As Integer
'' reset labels to default - testing direct referencing. 
Me.Controls("Label37").Font.Bold = Not True ' doesnt work
Me.Controls("Label37").Font.Bold = False ' doesnt work

'' reset labels to default
For i = 1 To 36
Me.Controls("Label" & 36 + i).Font.Bold = False ' doesnt work
Me.Controls("Label" & 36 + i).Caption = ""
Me.Controls("Label" & 36 + i).ForeColor = &H80000012
Me.Controls("Label" & 36 + i).BackColor = &H80000002
Next i

Dim lastrow As Integer
lastrow = Sheet1.Range("f16")   ' number of questions in test

''lastrow = Sheet1.Range("b" & Sheet1.Rows.Count).End(xlUp).Row - 6

'' get value from sheet 1 (c7:c42)
For i = 1 To lastrow
Me.Controls("Label" & 36 + i).Caption = Sheet1.Range("c" & 6 + i).Value

'''  EMPHASIZE
If Me.Controls("Label" & 36 + i).Caption = "Wrong" Then
        Me.Controls("Label" & 36 + i).ForeColor = &HFF&
        Me.Controls("Label" & 36 + i).Font.Bold = True
        Me.Controls("Label" & 36 + i).BackColor = &H80000002
    Debug.Print Me.Controls("Label" & 36 + i).Caption; "colour red"

''' DE-EMPHASIZE after output (font to black ok but still bold)     
    Else
        Me.Controls("Label" & 36 + i).ForeColor = &H80000012
        Me.Controls("Label" & 36 + i).Font.Bold = False
        Me.Controls("Label" & 36 + i).BackColor = &H80000002

"Debug.Print Me.Controls("Label" & 36 + i).Font.Bold' (always returns 
True)"

 End If


Next i



End Sub

I expect the text to return to normal.

ps the for loop i = 1 to 36 and "label" &36 + i are not errors. the labels are Label37 to Label72

Is there any Pseudocode or examples on how to implement NORMSDIST function of Excel?

$
0
0

Does anyone have some information or either some equations on how to implement NORMSDIST or NORM.S.DIST()? There is an equivalent of NORMSDIST in Matlab, and there are libraries in Python and Java, I am trying to implement it in PHP, so some pure equation would be very useful.


How to dynamically change which column to filter?

$
0
0

I need to create copies of entire workbooks (as there are other sheets, formatting, etc. I want to preserve) and then delete out rows of data that do not equal the current cl.value. The column headers will always be in row 1. The worksheet can have a varying amount of columns (i.e. A:D, A:F, A:G, etc.) and the end user can select any column to split by.

Referencing a cell works but if try to make it dynamic (based on user selection mentioned above) in the following part of the code:

Workbooks.Open Filename:=FName
            'Delete Rows
            'REFERENCING ACTUAL CELL WORKS
            'Range("A1").AutoFilter 1, "<>" & cl.Value
            'BELOW DOES NOT WORK
            Range(ColHead).AutoFilter 1, "<>" & cl.Value

I get a

Run-time error '1004': Method 'Range' of object'_Global' Failed

Full Code Below:

Sub DisplayUserFormSplitWb()
UserFormSplitWb.Show
End Sub

Private Sub BtnOK_Click()
Call SplitWbMaster.SplitWbToFiles
End Sub

Private Sub UserForm_Initialize()
Dim SplitOptions As Range
Set SplitOptions = ActiveSheet.Range("A1", ActiveSheet.Range("A1").End(xlToRight))
SplitWbCol.List = Application.Transpose(SplitOptions.Value)
End Sub

Sub SplitWbToFiles()
   Dim cl As Range
   Dim OrigWs As Worksheet
   Dim Subtitle As String
   Dim ColValue As String
   Dim ColStr As String
   Dim ColNum As Long

   Set OrigWs = ActiveSheet

   ColValue = UserFormSplitWb.SplitWbCol.Value

   Set ColHead = Rows(1).Find(What:=ColValue, LookAt:=xlWhole)
   Set OffCol = ColHead.Offset(1, 0)
   ColStr = Split(ColHead.Address, "$")(1)
   ColNum = ColHead.Column
   If OrigWs.FilterMode Then OrigWs.ShowAllData
   With CreateObject("scripting.dictionary")
      For Each cl In OrigWs.Range(OffCol, OrigWs.Range(ColStr & Rows.Count).End(xlUp))
         If Not .exists(cl.Value) Then
            .Add cl.Value, Nothing
            'Turn off screen and alerts
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False
            'Create workbook copy
            FPath = "U:\"
            Subtitle = UserFormSplitWb.SplitWbSubtitle.Value
            FName = FPath & cl.Value & "_" & Subtitle & ".xlsx"
            ActiveWorkbook.SaveCopyAs Filename:=FName
            Workbooks.Open Filename:=FName
            'Delete Rows
            'REFERENCING ACTUAL CELL WORKS
            'Range("A1").AutoFilter 1, "<>" & cl.Value
            'BELOW DOES NOT WORK
            Range(ColHead).AutoFilter 1, "<>" & cl.Value

            ActiveSheet.ListObjects(1).DataBodyRange.Delete

             Range(ColHead).AutoFilter
             Range(ColHead).AutoFilter
            'Rename sheet
            ActiveSheet.Name = Left(cl.Value, 31)
            'Refresh save and close
            ActiveWorkbook.RefreshAll
            ActiveWorkbook.Save
            ActiveWorkbook.Close False
         End If
      Next cl
   End With
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   MsgBox "Splitting is complete. Please check your Computer (U:) drive.", vbOKOnly, "Run Macro"
End Sub

How to set an automatically generated Option Button to 'True' based on the value in another range in VBA?

$
0
0

I generated radio buttons with the help of the answer to How to set an automatically generated radio button to true in VBA?.

My requirement is to set the automatically generated Option button to 'True' when there is a value x in another sheet.

Figure 1: The source to check the value.
enter image description here

Figure 2: The sheet to which the Mark x should be reflected as True.
enter image description here

The radio buttons that are generated are as Indexed as OB2_2 for the option button in 2 row and 2 column.

Here is the code

Private Sub AddOptionButtons(ByRef TargetRange As Range)

Dim m As Variant
m = Sheets("ALLO").Range("D23").Value + 1

Sheets("Final").Range("A2:A" & m).Copy Destination:=Sheets("Int_Result").Range("A2:A" & m)

Dim oCell As Range
For Each oCell In TargetRange
    oCell.RowHeight = 20
    oCell.ColumnWidth = 6
    Dim oOptionButton As OLEObject
    Set oOptionButton = TargetRange.Worksheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=oCell.Left + 1, Top:=oCell.Top + 1, Width:=15, Height:=18)
    oOptionButton.Name = "OB" & oCell.row & "_" & oCell.Column
    oOptionButton.Object.GroupName = "grp" & oCell.Top

Next
Call OB2_Click(oCell)

End Sub

Sub OB2_Click(oCell)

Dim col, ro, m As Variant
Dim Shap As Shape
m = Sheets("ALLO").Range("D23").Value + 1

For Each Shap In Sheets("Int_Result").Shapes
    For ro = 2 To m Step 1
        For col = 1 To 13 Step 1
            If Sheets("Final").Cells(ro, col).Value = "" Then
               Sheets("Int_Result").Shapes(ro, col).ControlFormat.Value = False
            Else
               Sheets("Int_Result").Shapes(ro, col).ControlFormat.Value = True
            End If
        Next col
    Next ro
Next Shap

End Sub

I get

"Object variable or With block variable not set" or "Wrong number of arguments or Invalid Property assignment".

on this line

Sheets("Int_Result").Shapes(ro, col).ControlFormat.Value = False 

How do I access the automatically generated radio buttons?

Specify Columns in formula with xlsxwriter write_formula

$
0
0

i try to write some formulas into a excel table, but i dont like to specify the Cells by A1 , B2 etc. I´m searching for like one hour now - so i hope someone can help me :)

So far i can specify the Cell where the formula should be with row and column - but not the actual parameters (see code: B2-B3)

def test():
workbook = xlsxwriter.Workbook(...)
worksheet = workbook.add_worksheet(name)
worksheet.write_formula(10, 0, '=ABS(B2-B3)')

Does anyone have a clue ?

URL Issue retrieving data quotes in Yahoo finance

$
0
0

The URL from Yahoo is not working when I try to retrieve quotes from a particular stock. There are several discussion about it, However, it seems nothing is shown regarding VBA macro

Sub Get_Data()
Dim URL As String
Dim Ticker As String
Dim http As New WinHttpRequest
Dim sCotes As String
Dim Lignes
Dim Valeurs
Dim i As Long
Dim j As Long
Dim sLigne As String
Dim sValeur As String

Ticker = Range("Ticker")

URL = "https://query1.finance.yahoo.com/v7/finance/download/TECK?period1=1540456339&period2=1571992339&interval=1d&events=history&crumb=kjOZLFv6ch2"
http.Send
sCotes = http.ResponseText

MsgBox sCotes

Lignes = Split(sCotes, Chr(10))
For i = 1 To UBound(Lignes) 'until the end of the Lignes variable
  sLigne = Lignes(i)
  Valeurs = Split(sLigne, ",")
  For j = 0 To UBound(Valeurs) - 1
  Select Case j
  Case 0
  sValeur = DateSerial(CLng(Left(Valeurs(0), 4)), CLng(Mid(Valeurs(0), 6, 2)), CLng(Right(Valeurs(0), 2)))
  Case 5
  sValeur = CLng(Valeurs(5))
  Case Else
  sValeur = CDbl(Replace(Valeurs(j), ".", ","))
  End Select
  Range("A1").Offset(i, j) = sValeur
  Application.StatusBar = Format(Cells(i, 1), "Short Date")
  Next
Next
Application.StatusBar = False

End Sub

Execution error at the step Http.send : "This method cannot be called until the Open method has been called"

Compare 2 column and arrange values in 3rd column in excel

$
0
0

i have 2 columns A and B and want to compare values in both column. I want final result in below format e.g A has 78 and B has 78 also, 78 will be in C column where A 78 value is present. enter image description here

Unable to save worksheets in excel

$
0
0

I am trying to copy a group of worksheets from the current workbook and save them in a new workbook using the following subroutine.

worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Copy
With ActiveWorkbook
        .SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook
        .Close SaveChanges:=False
End With

However nothing is happening. I noticed from running the debugger that it returns to the main subroutine after executing the first line.

I also tried using the name of the worksheets

 worksheets(Array("NestP", "NestR")).Copy

Openpyxl & Python : column of keys, column of values - how to add up the values and assign totals to corresponding keys

$
0
0

Apologies for the false start. I have now read the FAQs and hope my question meets the standards:). I have the following in a spreadsheet :

Col1        Col2
1234        12.5
1234        8.2
1234        9.8
2334        10.1
2334        7.7
4567        9.8
5678        9.9
5678        8.4

i need to total up the figures in Col2 for each reference number in Col1 using OpenPyxl & Python ie.

1234        30.5
2334        17.8
4567        9.8
5678        18.3

After a few false starts i have this :

#import modules
import openpyxl
from openpyxl.utils import coordinate_from_string, column_index_from_string
from openpyxl.utils.cell import _get_column_letter
import sys
from datetime import date
from datetime import time
import datetime
import calendar
from openpyxl.styles import Color, PatternFill, Font, Border
from shutil import copyfile

#set variables
dest_filename = 'P:\\Charging\\Chargeable Resources\\ChargeableActivity\\January2017ChargeableActivity.xlsx'
total = 0

#create objects
wb = openpyxl.load_workbook(filename = dest_filename, data_only=True)
ws1 = wb.get_sheet_by_name('ChargeableActivity')

for i in range(1, ws1.max_row):
    #convert ws1.cell(row=i, column=12).value to integer (=Excel convert to number)
    if isinstance(ws1.cell(row=i, column=12).value,long):
        RFCNumber = ws1.cell(row=i, column=12).value
        for col in ws1.iter_cols(min_col=12, max_col = 12, min_row=1):
            if ws1.cell(row=i, column=12).value == RFCNumber:
                total = total + ws1.cell(row=i, column=14).value
                print(RFCNumber,'Total=',total)

But the output is cumulative and doesn't delete duplicate RFC numbers :

Col1        Col2
    1234        12.5
    1234        20.7
    1234        30.5
    2334        40.6        
    4567        48.3        
    5678        58.1

etc I'm not a coder and am looking for a way to save a lot of time editing a big spreadsheet. Any suggestions welcomed. Thank you.


Google Sheets Macros?

$
0
0

I'm looking to create a Google Docs/Sheet as sort of a "books" for trading in a video-game, here's what it would do:

  • Track Item (Name)
  • Buy/Sell Prices
  • Amount Kept (not sold back)
  • Quantity Limits (there is a limit on # traded ea 4 hours)

I would type the item name in column A, buy/sell prices in B, and amount kept in C. The macro would then add the amount kept to the overall balance, calculate the price of each item, and adjust the average price of ea item in the stack as a whole. I would also need to do the same thing when selling items.

I'm not here for someone to do this for me, I understand that isn't how things are done around here. In school, though, I did play around with (an older version of) this often with friends, so I am not a complete beginner, and Google Sheets offers a lot of help with being able to drag and automatically work things out. The game itself is very relaxing and you don't have to pay constant attention to it, so I can learn how to do this and work at it over time to eventually have something really good-- with a new skill learned in real life as I progress in-game-- what I am hoping to get from this community are links to resources which help newbies learn Sheets/Excel macros & formula.

To be specific (as a lot of this will be column x (math) with column y), what is scaring me as the main obstacle I see stopping me is being able to work out each item automatically, without having to redo the macro every time an item is added to the entries (which would be manual); the main help then would be resources on working out sums of each column without knowing the exact squares that'll be used, and keeping them separate, if this makes sense

Why I get Error 2042 as Result of VBA Match using Statement as shown in MS documentation

$
0
0

I have a Woorsheet (TMP) with 2 Columns (A+B). In Col A there are Numbers as String, in Col B there are numbers. Now I try to get the corresponding number to a given String.

I've tried a lot of things allready, nothing helped. As far as I understand the code of the match statement is the same as the one in the docunentation of MS. I even did the same with a foreach loop, which worked fine but is a little bit slow.

Public Function SuchenKonto(Konto As String) As Boolean
    Dim ind As Variant
    Dim Rückgabe As Boolean
    Dim Vergl As Variant
    Vergl = Konto
    Rückgabe = False

    ind = Application.Match(Konto, Worksheets("TMP").Columns(1), 0)


    If Not IsError(ind) Then
        Rückgabe = True
        Worksheets("TMP").Range("B" & ind).Copy
        Sheets("Monatsvergleich").Range("AD1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=False
    End If
    SuchenKonto = Rückgabe

End Function

What can I do to get back the index of the line with the correct dates?

VBA to look for case sensitive DUPLICATE rows not cells and remove

$
0
0

Look to amend a brilliant answer from here posted below. However the answer below compares only the values in the first column for each row to tag and then delete.

However I want to look if the first column is identical and if so check all the other columns are identical and then tag it if the whole row exists.

 tried amending the 
       IF Not .Exists(v(i,1)) Then to 
       IF Not .Exists(v(i,1)) and IF Not .Exists(v(i,2)) Then

did not work also tried

   IF Not .Exists(v(i,1)) Then
    IF Not .Exists(v(i,2)) Then

Sub RemoveDuplicateRows()

Dim data As Range
Set data = ThisWorkbook.Worksheets("Sheet3").UsedRange

Dim v As Variant, tags As Variant
v = data
ReDim tags(1 To UBound(v), 1 To 1)
tags(1, 1) = 0 'keep the header

Dim dict As Dictionary
Set dict = New Dictionary
dict.CompareMode = BinaryCompare

Dim i As Long
For i = LBound(v, 1) To UBound(v, 1)
    With dict
        If Not .Exists(v(i, 1 And 2)) Then 'v(i,1) comparing the values in the first column
              tags(i, 1) = i
            .Add Key:=v(i, 1), Item:=vbNullString
         End If
      End With
Next i

Dim rngTags As Range
Set rngTags = data.Columns(data.Columns.count + 1)
rngTags.Value = tags

Union(data, rngTags).Sort key1:=rngTags, Orientation:=xlTopToBottom, Header:=xlYes

Dim count As Long
count = rngTags.End(xlDown).Row

rngTags.EntireColumn.Delete
data.Resize(UBound(v, 1) - count + 1).Offset(count).EntireRow.Delete

End Sub

How to use excel vba code to change the color of a series in a box and whisker plot?

$
0
0

I am unable to code anything that will change the colors of a series in a box and whisker plot, and I can't find any hints at all online.

I've tried using/modifying code that changes the color of series in scatterplots, but those don't work for box and whisker plots. I've tried recording a macro, but the code it produces doesn't show anything for the color change, it just shows me selecting the series and then the code ends, completely leaving out the color change, which I've never seen for any other type of plot when I've tried to do this.

This is the code that I used to make the plot:

Worksheets("Data Summary").Activate
Range(cells(4, 2), cells(y + 3, a + 1)).Select
ActiveSheet.Shapes.AddChart2(406, xlBoxwhisker).Select
For seriesNumber = 1 To a
    ActiveChart.SeriesCollection(seriesNumber).Name = cells(3,   seriesNumber + 1).Value
Next seriesNumber    


Set capacityChart = ActiveSheet.Shapes(1)
capacityChart.Name = "Data Chart"

ActiveSheet.ChartObjects("Data Chart").Activate
ActiveChart.SetElement (301)
ActiveChart.SetElement (307)
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Caption = "x axis name"
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.SetElement (300)
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Select
Selection.Caption = "y axis name"
ActiveChart.Axes(xlCategory).Select
ActiveChart.SetElement (348)
ActiveChart.HasLegend = True

Returning a string from a bash script

$
0
0

Trying to return a string from a bash script back to a VBA shell command via excel. I am not sure what code I need to accomplish this. I want to do something a bit more complicated in the bashscript.sh but using simple code for purpose of getting my idea across.

From Excel VBA

Dim Str1 As String
Dim Str2 As String

Str1 = "Hello"
Str2 = " World"

BASHPATH = "C:\Windows\Sysnative\bash" ' or C:\Windows\SysWOW64\bash"
WORK_DIRECTORY = "/mnt/c/Work/"
SCRIPT = "bashscript.sh " & Str1 & " " & Str2

Call Shell(BASHPATH + " " + WORK_DIRECTORY + SCRIPT, 1) 

From the bashcript.sh

'Run code below

echo "$1"
echo "$2"

VAR3="$1$2"

echo "$VAR3"

'Return "Hello World"

Viewing all 88706 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>