2010-01-26から1日間の記事一覧
Sub save_data() Dim fname As String fname = <filename> Dim row_count As Integer ' コピー、ブック追加、貼り付け、保存 Workbooks.Add Workbooks(1).Sheets("SheetName").Range(COL_DEKI & SHEET_OFFSET & ":" & COL_DEKI & row_count).Copy ActiveSheet.Range(CO</filename>…