如何用VBA将excel的数据导入到另外个excel中

Posted 2023-05-12

例如如果在book1的sheet1中的a1:a1手动输入1月，那么，通过宏就将a2:h9的数据导入到book2的sheet1中的a2:d9。如果在book1的sheet1中的a1:a1手动输入2月，那么，通过宏就将a2:h9的数据导入到book2的sheet1中的e2:h9。以此类推到12月
就是说A1单元格可以手动输入任意月份，输入不同月份，导入到不同的单元格。 1月是a2:d9，2月是e2:h9。。。以此类推。 book2的路径就是默认跟book1同文件夹下. 问题中刚才打错了，1月是a1:d9

有三个问题：

a1：a1不就是A1单元格吗？

1月是a2：h9,2月，3月，4月是什么区域

book2需要提供具体路径的

完全明白，稍后给你写代码。

Sub From1To2()
Dim Wb As Workbook, MyInputNum As Byte, WbIsOpen As Boolean
For Each Wb In Application.Workbooks
    If LCase(Wb.FullName) = LCase(ThisWorkbook.Path & "\\book2.xls") Then
        WbIsOpen = True
        Set Wb = Workbooks(ThisWorkbook.Path & "\\book2.xls")
        Exit For
    End If
Next Wb
If Not WbIsOpen Then
    On Error GoTo Check
    Set Wb = Application.Workbooks.Open _
    (Filename:=ThisWorkbook.Path & "\\book2.xls")
    On Error GoTo 0
End If
MyInputNum = Val(Range("A1").Value)
If MyInputNum <= 0 Or MyInputNum > 12 Then Exit Sub
Range(Cells(2, 4 * MyInputNum - 3), Cells(9, 4 * MyInputNum)).Copy _
Destination:=Wb.Worksheets(1).Cells(2, 4 * MyInputNum - 3)
Exit Sub
Check:
MsgBox "本路径下找不到book2.xls"
End Sub

刚刚写完，还没调试。

追问

我刚试了下 好像没法复制过去- -

追答

没有调试就是不行，错了3个地方。

看附件吧。这次是调试过了的。

追问

非常感谢
我是希望将book1中只有黄色那一块，然后将通过改动book1中a1里的月份，将book1中的a2:d9复制到book2中的不同单元格。然后我book1中很多数字是有公式的，我是希望只复制数字到book2中，我自己做的复制连着公式复制进去，就都显示0了 不知道为什么

追答

A1单元格可以输入5,5月，5月份都支持。反正只认前面的数字。

那就通过选择性粘贴，只粘贴数值，不要公式

已经改好了。

参考技术A 是不是可以这样理解：
在a1单元格输入指定数值，根据该单元格的内容，将指定区域的数据复制到不同的表的指定区域里？追问

book1中的数据是随着a1单元格数值变化的，这个宏我自己做好了已经。现在就是要将变化后的内容，复制到book2中的指定区域内

如何用Java导出数据存到excel里面

java中jxl导出数据到excel的例子
import jxl.*;
import jxl.write.*;
import java.io.*;
import java.io.File.*;
import java.util.*;

public class excel

public static void main(String[] args)


String targetfile = "c:/out.xls";//输出的excel文件名
String worksheet = "List";//输出的excel文件工作表名
String[] title = "ID","NAME","DESCRIB";//excel工作表的标题

WritableWorkbook workbook;
try

//创建可写入的Excel工作薄,运行生成的文件在tomcat/bin下
//workbook = Workbook.createWorkbook(new File("output.xls"));
System.out.println("begin");

OutputStream os=new FileOutputStream(targetfile);
workbook=Workbook.createWorkbook(os);

WritableSheet sheet = workbook.createSheet(worksheet, 0); //添加第一个工作表
//WritableSheet sheet1 = workbook.createSheet("MySheet1", 1); //可添加第二个工作
/*
jxl.write.Label label = new jxl.write.Label(0, 2, "A label record"); //put a label in cell A3, Label(column,row)
sheet.addCell(label);
*/

jxl.write.Label label;
for (int i=0; i<title.length; i++)

//Label(列号,行号 ,内容 )
label = new jxl.write.Label(i, 0, title[i]); //put the title in row1
sheet.addCell(label);


//下列添加的对字体等的设置均调试通过，可作参考用

//添加数字
jxl.write.Number number = new jxl.write.Number(3, 4, 3.14159); //put the number 3.14159 in cell D5
sheet.addCell(number);

//添加带有字型Formatting的对象
jxl.write.WritableFont wf = new jxl.write.WritableFont(WritableFont.TIMES,10,WritableFont.BOLD,true);
jxl.write.WritableCellFormat wcfF = new jxl.write.WritableCellFormat(wf);
jxl.write.Label labelCF = new jxl.write.Label(4,4,"文本",wcfF);
sheet.addCell(labelCF);

//添加带有字体颜色,带背景颜色 Formatting的对象
jxl.write.WritableFont wfc = new jxl.write.WritableFont(WritableFont.ARIAL,10,WritableFont.BOLD,false,jxl.format.UnderlineStyle.NO_UNDERLINE,jxl.format.Colour.RED);
jxl.write.WritableCellFormat wcfFC = new jxl.write.WritableCellFormat(wfc);
wcfFC.setBackground(jxl.format.Colour.BLUE);
jxl.write.Label labelCFC = new jxl.write.Label(1,5,"带颜色",wcfFC);
sheet.addCell(labelCFC);

//添加带有formatting的Number对象
jxl.write.NumberFormat nf = new jxl.write.NumberFormat("#.##");
jxl.write.WritableCellFormat wcfN = new jxl.write.WritableCellFormat(nf);
jxl.write.Number labelNF = new jxl.write.Number(1,1,3.1415926,wcfN);
sheet.addCell(labelNF);

//3.添加Boolean对象
jxl.write.Boolean labelB = new jxl.write.Boolean(0,2,false);
sheet.addCell(labelB);

//4.添加DateTime对象
jxl.write.DateTime labelDT = new jxl.write.DateTime(0,3,new java.util.Date());
sheet.addCell(labelDT);

//添加带有formatting的DateFormat对象
jxl.write.DateFormat df = new jxl.write.DateFormat("ddMMyyyyhh:mm:ss");
jxl.write.WritableCellFormat wcfDF = new jxl.write.WritableCellFormat(df);
jxl.write.DateTime labelDTF = new jxl.write.DateTime(1,3,new java.util.Date(),wcfDF);
sheet.addCell(labelDTF);

//和宾单元格
//sheet.mergeCells(int col1,int row1,int col2,int row2);//左上角到右下角
sheet.mergeCells(4,5,8,10);//左上角到右下角
wfc = new jxl.write.WritableFont(WritableFont.ARIAL,40,WritableFont.BOLD,false,jxl.format.UnderlineStyle.NO_UNDERLINE,jxl.format.Colour.GREEN);
jxl.write.WritableCellFormat wchB = new jxl.write.WritableCellFormat(wfc);
wchB.setAlignment(jxl.format.Alignment.CENTRE);
labelCFC = new jxl.write.Label(4,5,"单元合并",wchB);
sheet.addCell(labelCFC); //

//设置边框
jxl.write.WritableCellFormat wcsB = new jxl.write.WritableCellFormat();
wcsB.setBorder(jxl.format.Border.ALL,jxl.format.BorderLineStyle.THICK);
labelCFC = new jxl.write.Label(0,6,"边框设置",wcsB);
sheet.addCell(labelCFC);
workbook.write();
workbook.close();
catch(Exception e)

e.printStackTrace();

System.out.println("end");
Runtime r=Runtime.getRuntime();
Process p=null;
//String cmd[]="notepad","exec.java";
String cmd[]="C:\\Program Files\\Microsoft Office\\Office\\EXCEL.EXE","out.xls";
try
p=r.exec(cmd);

catch(Exception e)
System.out.println("error executing: "+cmd[0]);



参考技术A 一个用POI输出EXCEL的简单例子：

public static HSSFWorkbook writeExcel(String excelName,
List<String[]> list, List<String> firstRowValue)
HSSFRow row; // 数据行
HSSFCell cell; // 单元格

short maxCol = (short) firstRowValue.size();
HSSFWorkbook wb = new HSSFWorkbook();
HSSFSheet sheet = wb.createSheet(excelName);
HSSFCellStyle cellStyle = wb.createCellStyle();
cellStyle.setAlignment(HSSFCellStyle.ALIGN_CENTER); // 水平布局：居中
cellStyle.setWrapText(true);

// 写入表头
for (short i = 0; i < firstRowValue.size(); i++)
row = sheet.createRow(0);
cell = row.createCell(i);
cell.setCellStyle(cellStyle);
cell.setCellValue(firstRowValue.get(i));

// 写入数据
for (int rowNo = 1; rowNo <= list.size(); rowNo++)
row = sheet.createRow(rowNo);
for (short colNo = 0; colNo < maxCol; colNo++)
if (!StringUtil.isNullOrEmpty(list.get(rowNo-1)[colNo]))
cell = row.createCell(colNo);
cell.setCellValue(list.get(rowNo - 1)[colNo]);



// 自动调整列宽
for (short i = 0; i < maxCol; i++)
sheet.autoSizeColumn(i);
sheet.setColumnWidth( i,
(short) (sheet.getColumnWidth(i)+ 500));

return wb;
参考技术B package org.wiki.excel.demo;

import java.util.ArrayList;
import java.util.List;

import org.wiki.excel.core.ExcelUtil;
import org.wiki.excel.entity.Record;

public class Test5
public static void main(String[] args) throws Exception

List<Record> recordList = new ArrayList<Record>();
String[] record1 ="1","张三","22","123","测试地址1";
recordList.add(new Record(0,record1));

String[] record2 ="2","李四","333","456","测试地址2";
recordList.add(new Record(1,record2));
//Excel标题列名
String[] fieldName = "序号","姓名","年龄","电话号码","地址";
ExcelUtil.exoprtToExcel("f:/export5.xls", recordList, fieldName);

System.out.println("导出成功...");


参考技术C 用 POI （http://poi.apache.org/）或者 JXL 参考技术D 使用jxl