Thread: Excel和VBA分析

1附件你好先生，謝謝..以前我仍然不太了解導出到csv的代碼.....我想導出到csv到csv，但腳本或indior，我用過每一對分別....我附上一個文件，希望有人會幫助你在csv。這是一個腳本，每週在5個欄中輸出OHLC ....是否可以修改為3個時間幀（每日，每周和每月），所以一個csv？
https://www.forex-pedia.com/attachme...1835201690.mq4

你好。抱歉我很難過，但希望這個問題很容易回答。這是我關於FF的第一篇文章，我不知道應該把它發佈到哪裡.......我想將以前每周大約6對的數據導出到excel中。它看起來像這樣.... wc打開關閉高低GBPAUD EURUSD等等目前我只想要上週的數據，但我想在一張excel表上進行進一步分析....節省時間並避免人為錯誤地成對傳輸數據。我希望有人可以幫助或指出我正確的方向。謝謝。

3附件

Originally Posted by ;

{quote}親愛的湯姆，我不能保證明確的幫助，但是通過PM向我解釋你擁有什麼以及你想做什麼，讓我檢查一下。我的日程安排真的很忙，但我會嘗試沒有認真的承諾。

如此交配，我的計劃進展緩慢。使用下面的JR代碼將從Metatrader導出的* .csv加載到Excel中而無需打開csv，同時程序同時將其切換為列。非常方便。

Originally Posted by ;

.... Sub OpenCSV（）Dim sourceWb As Workbook Dim targetWb As Workbook Dim sourceWs As Worksheet Dim targetWs As Worksheet Dim sourceRng ....

現在加載數據集，Excel表現得有點奇怪。如果我從數據創建圖表，它會識別日期。但是，如果我編寫非常簡單的宏來分析日期，Excel可以看到一些日期，而有些日期則沒有。我已經有點厭倦了，所以製作了版畫屏幕並希望有人可以直接設置它。這段代碼只是一個更大的VBA代碼的開始，它應該這樣做：1）加載從菜單屏幕設置的參數。所以我設置了起始低/高價格/日期。 - 我在MT4圖表上找到這些數字 - 目前想要分析自13.3以來的歐盟運動。低1,04617並測量波浪的強度。所以我將低 高開始設置為菜單，程序的第一部分加載它。 2）在時間序列中搜索日期，如果它們匹配選定的低和高。如果匹配 - 只需向右寫幾列，並設置StartingRow進行峰值搜索。出於某種原因，這部分程序，無論多麼簡單，都不起作用。代碼完全一樣。我已經測試了機器人If和Case命令，但是它們都沒有將13.3.2015識別為低日期（LoDate），儘管將26.3.2015視為HiDate沒有問題。如果你看到我做錯了什麼，請非常感謝幫助。一旦準備好，Ofc將共享整個代碼。順便說一句，如果有人知道如何將該窗口插入帖子，所以代碼更清潔，請告訴我。 T Sub HiLoPF（）Dim Wb As Workbook Dim MenuWs，DataWs，PFWs As Worksheet Dim PFStart，b，rng，rng2 As Range Dim LoPrice，HiPrice，z，w As Double Dim LoDate，HiDate As Date Dim Store，LastRow，FirstRow， WaveID，i，n As Integer'1）設置參數設置Wb = ActiveWorkbook設置MenuWs = Wb.Worksheets（菜單）設置DataWs = Wb.Worksheets（數據）LastRow = DataWs.Range（A1）。CurrentRegion.Rows.Count LoDate = MenuWs.Cells（9,3）HiDate = MenuWs.Cells（10,3）LoPrice = MenuWs.Cells（9,4）HiPrice = MenuWs.Cells（10,4）'2）Clear Peakfinder HiLo目標範圍DataWs .Activate Range（Cells（2,8），Cells（LastRow，8））。ClearContents'4）設置開始搜索範圍設置rng = DataWs.Range（Cells（2,1），Cells（LastRow，1））For Each b在rng中選擇案例b案例是= LoDate b.Offset（0,7）= LoPrice案例是= HiDate b.Offset（0,7）= HiPrice FirstRow = b.Row 1設置rng =範圍（b.Offset（ FirstRow，4），b.Offset（LastRow，4））退出結束選擇下一個結束子

要發布代碼，請使用代碼標記。在新回复菜單的右上角，有一個lt;gt;按鈕。單擊它並將代碼放在標籤中。插入的代碼像這樣

使用mt4中的日期然後在Excel中使用日期可能會有問題。我更喜歡將日期保留為默認mt4格式的文本。對於我為某人做的最近一個項目，我不得不將Mt4日期格式格式轉換為Excel日期格式。我稍後會發布一些代碼。我使用自定義對像類和自定義集合類將外部數據引入Excel，然後將功能設置為格式化類中的日期。這聽起來很順從，但事實並非如此。然後我可以將該類用於任何其他電子表格或項目，而無需再次從頭開始編寫。

Originally Posted by ;

要發布代碼，請使用代碼標記。在新回复菜單的右上角，有一個lt;gt;按鈕。單擊它並將代碼放在標籤中。像這樣

非常適合出現。插入的代碼Whopee我剛剛開始研究它，但目前我提出的最好的事情是我的舊文章分成碎片，在一個單元格中寫入碎片 - 這就是日期復制單元格。生病了，我知道。是megaslow ......但另一方面，我不會經常加載那些Csvs。如果它運作良好，我可以分析h1圖表，這將是很酷的。現在我主要與D1合作，因為我的工具太慢，無法在白天分析更短的時間框架。

我將日期強制轉換為變量中的格式，然後再次在搜索發生的代碼中。我認為問題可能出在案例陳述中。我沒有使用Case Statement來進行匹配。我使用Find（）。這是我如何強制確定日期格式。我還將日期存儲為字符串而不是日期，因為Excel可以使用日期挑剔：插入的代碼LoDate =格式（datevalue（MenuWs.cells（9,3）），YYYY.MM.DD）玩這個來做一個查找（ ）。插入的代碼Dim targetRow作為Range Dim LoDate as String'獲取與LoDate Set targetRow = Range（A：A）匹配的範圍.Find（LoDate）'寫入目標單元格範圍（H：targetRow.Row）.Value = LoPrice

Originally Posted by ;

我將日期強制轉換為變量中的格式，然後再次在搜索發生的代碼中。我認為問題可能出在案例陳述中。我沒有使用Case Statement來進行匹配。我使用Find（）。這是我如何強制確定日期格式。我還將日期存儲為字符串而不是日期，因為Excel可以使用日期挑剔：LoDate = format（datevalue（MenuWs.cells（9,3）），YYYY.MM.DD）玩這個來做一個find（）。 Dim targetRow as Range Dim LoDate as String'獲取與LoDate Set targetRow匹配的範圍...

JR，這就是它！有用！插入的代碼LoDate =格式（datevalue（MenuWs.cells（9,3）），YYYY.MM.DD）
。哦，伙計，你對我很有幫助。非常感謝你。看，我正在嘗試從書籍中學習編碼，但是在使用IT analphabet時，我總是陷入一些愚蠢的問題，這是由於我對PC工作的基本原理缺乏了解而導致的。因此，這本書說了一些東西 - 從圖書館加載它 - 或者將它存儲在任何東西中 - 我迷失了。你幫助了我很多。謝謝。所以我可以使用該峰值查找器VBA代碼。 Whopee。

嗨JR97我正在尋找編程幾何形狀的幫助。你能給我一些提示嗎？

嗨，我想從excel發送命令命令到mt4。我發現fxblue RTD工具可以做到但我無法啟動宏語法是Sub ordine1（）設置cmd = CreateObject（“fxbluelabs.ExcelCommand”）strResult = cmd.SendCommand（“156734”，“BUY” ，s = EURUSD | v = 10000,5）'strResult = cmd.SendCommand（Range（I2）.Value）End Sub但createobject給出錯誤。有任何建議或其他方法嗎？非常感謝埃里克